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. */
MAIN__()19 /* Main program */ void MAIN__()
20 {
21 } /* MAIN__ */
22
23 #line 4 "langs1.f"
fsub_()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
34