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