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