1 /* langs1.f -- translated by f2c (version of 5 May 1990 1:12:08). */
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".
8 3. f2c was called as "f2c -g langs1.f".
9 4. We don't need to use the fortran libraries. */
13 /* Table of constant values */
15 static integer c__10000
= 10000;
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. */
20 /* Main program */ void MAIN__()
22 /* Main program */ MAIN__()
28 /* Subroutine */ int fsub_()
31 extern integer
cppsub_(int*);
33 extern integer
cppsub_();
38 return cppsub_(&c__10000
);
This page took 0.029786 seconds and 4 git commands to generate.