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