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 
42