Commit | Line | Data |
---|---|---|
c906108c SS |
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. */ | |
085dd6e6 JM |
19 | #ifdef PROTOTYPES |
20 | /* Main program */ void MAIN__() | |
21 | #else | |
c906108c | 22 | /* Main program */ MAIN__() |
085dd6e6 | 23 | #endif |
c906108c SS |
24 | { |
25 | } /* MAIN__ */ | |
26 | ||
27 | #line 4 "langs1.f" | |
28 | /* Subroutine */ int fsub_() | |
29 | { | |
085dd6e6 JM |
30 | #ifdef PROTOTYPES |
31 | extern integer cppsub_(int*); | |
32 | #else | |
c906108c | 33 | extern integer cppsub_(); |
085dd6e6 | 34 | #endif |
c906108c SS |
35 | |
36 | #line 5 "langs1.f" | |
37 | #line 6 "langs1.f" | |
38 | return cppsub_(&c__10000); | |
39 | #line 7 "langs1.f" | |
40 | } /* fsub_ */ | |
41 |