1e93f7393Sniklas /* langs1.f -- translated by f2c (version of 5 May 1990 1:12:08). */ 2e93f7393Sniklas 3e93f7393Sniklas /* f2c output hacked as follows for GDB testsuite: 4e93f7393Sniklas 1. Change commented out "#" lines to #line directives. 5e93f7393Sniklas I don't know why this behavior isn't the default for f2c -g. 6e93f7393Sniklas 2. Remove include of f2c.h and put in just a typedef for "integer". 7e93f7393Sniklas Additional notes: 8e93f7393Sniklas 3. f2c was called as "f2c -g langs1.f". 9e93f7393Sniklas 4. We don't need to use the fortran libraries. */ 10e93f7393Sniklas 11e93f7393Sniklas typedef int integer; 12e93f7393Sniklas 13e93f7393Sniklas /* Table of constant values */ 14e93f7393Sniklas 15e93f7393Sniklas static integer c__10000 = 10000; 16e93f7393Sniklas 17e93f7393Sniklas /* I am not sure whether there is a way to have a fortran program without */ 18e93f7393Sniklas /* a MAIN, but it does not really harm us to have one. */ 19*b725ae77Skettenis #ifdef PROTOTYPES MAIN__()20*b725ae77Skettenis/* Main program */ void MAIN__() 21*b725ae77Skettenis #else 22e93f7393Sniklas /* Main program */ MAIN__() 23*b725ae77Skettenis #endif 24e93f7393Sniklas { 25e93f7393Sniklas } /* MAIN__ */ 26e93f7393Sniklas 27e93f7393Sniklas #line 4 "langs1.f" fsub_()28e93f7393Sniklas/* Subroutine */ int fsub_() 29e93f7393Sniklas { 30*b725ae77Skettenis #ifdef PROTOTYPES 31*b725ae77Skettenis extern integer cppsub_(int*); 32*b725ae77Skettenis #else 33e93f7393Sniklas extern integer cppsub_(); 34*b725ae77Skettenis #endif 35e93f7393Sniklas 36e93f7393Sniklas #line 5 "langs1.f" 37e93f7393Sniklas #line 6 "langs1.f" 38e93f7393Sniklas return cppsub_(&c__10000); 39e93f7393Sniklas #line 7 "langs1.f" 40e93f7393Sniklas } /* fsub_ */ 41e93f7393Sniklas 42