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 11typedef int integer; 12 13/* Table of constant values */ 14 15static 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#ifdef PROTOTYPES 20/* Main program */ void MAIN__() 21#else 22/* Main program */ MAIN__() 23#endif 24{ 25} /* MAIN__ */ 26 27#line 4 "langs1.f" 28/* Subroutine */ int fsub_() 29{ 30#ifdef PROTOTYPES 31 extern integer cppsub_(int*); 32#else 33 extern integer cppsub_(); 34#endif 35 36#line 5 "langs1.f" 37#line 6 "langs1.f" 38 return cppsub_(&c__10000); 39#line 7 "langs1.f" 40} /* fsub_ */ 41 42