xref: /openbsd-src/gnu/usr.bin/binutils/gdb/testsuite/gdb.base/langs0.c (revision b725ae7711052a2233e31a66fefb8a752c388d7a) 
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 
csub(int x)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
langs0__2do()17 langs0__2do ()
18 {
19   return fsub_ () + 2;
20 }
21 
22 int
main()23 main ()
24 {
25 #ifdef usestubs
26   set_debug_traps();
27   breakpoint();
28 #endif
29   if (langs0__2do () == 5003)
30     /* Success.  */
31     return 0;
32   else
33     return 1;
34 }
35