xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.base/langs0.c (revision a5a4af3bd380a7b58b758d9b311cef9f7c34aeb4) 
1*a5a4af3bSchristos /* This file is actually in C, it is not supposed to simulate something
2*a5a4af3bSchristos    translated from another language or anything like that.  */
3*a5a4af3bSchristos extern  int fsub_();
4*a5a4af3bSchristos 
csub(int x)5*a5a4af3bSchristos int csub (int x)
6*a5a4af3bSchristos {
7*a5a4af3bSchristos   return x + 1;
8*a5a4af3bSchristos }
9*a5a4af3bSchristos 
10*a5a4af3bSchristos int
langs0__2do()11*a5a4af3bSchristos langs0__2do ()
12*a5a4af3bSchristos {
13*a5a4af3bSchristos   return fsub_ () + 2;
14*a5a4af3bSchristos }
15*a5a4af3bSchristos 
16*a5a4af3bSchristos int
main()17*a5a4af3bSchristos main ()
18*a5a4af3bSchristos {
19*a5a4af3bSchristos   if (langs0__2do () == 5003)
20*a5a4af3bSchristos     /* Success.  */
21*a5a4af3bSchristos     return 0;
22*a5a4af3bSchristos   else
23*a5a4af3bSchristos     return 1;
24*a5a4af3bSchristos }
25