OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [gdb/] [testsuite/] [gdb.base/] [langs1.c] - Blame information for rev 357

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 330 jeremybenn
/* 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
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.