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 int
   4 csub (x)
   5      int x;
   6 {
   7   return x + 1;
   8 }
   9
  10 int
  11 langs0__2do ()
  12 {
  13   return fsub_ () + 2;
  14 }
  15
  16 int
  17 main ()
  18 {
  19 #ifdef usestubs
  20   set_debug_traps();
  21   breakpoint();
  22 #endif
  23   if (langs0__2do () == 5003)
  24     /* Success.  */
  25     return 0;
  26   else
  27     return 1;
  28 }