gdb/testsuite/gdb.base/langs1.c

   1 /* langs1.f -- translated by f2c (version of 5 May 1990  1:12:08).  */
   2
   3 /* f2c output hacked as follows for GDB testsuite:
   4    1.  Change commented out "#" lines to #line directives.
   5        I don't know why this behavior isn't the default for f2c -g.
   6    2.  Remove include of f2c.h and put in just a typedef for "integer".
   7    Additional notes:
   8    3.  f2c was called as "f2c -g langs1.f".
   9    4.  We don't need to use the fortran libraries.  */
  10
  11 typedef int integer;
  12
  13 /* Table of constant values */
  14
  15 static integer c__10000 = 10000;
  16
  17 /* I am not sure whether there is a way to have a fortran program without */
  18 /* a MAIN, but it does not really harm us to have one. */
  19 /* Main program */ void MAIN__()
  20 {
  21 } /* MAIN__ */
  22
  23 #line 4 "langs1.f"
  24 /* Subroutine */ int fsub_()
  25 {
  26     extern integer cppsub_(int*);
  27
  28 #line 5 "langs1.f"
  29 #line 6 "langs1.f"
  30     return cppsub_(&c__10000);
  31 #line 7 "langs1.f"
  32 } /* fsub_ */
  33