gnu/dist/gdb6/gdb/testsuite/gdb.base/langs0.c

   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 #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 }