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