OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgfortran/] [fmain.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 733 jeremybenn
/* Note that this file is not used as of GFortran 4.5, and exists here
2
   only for backwards compatibility.  */
3
 
4
#include "libgfortran.h"
5
 
6
/* The main Fortran program actually is a function, called MAIN__.
7
   We call it from the main() function in this file.  */
8
void MAIN__ (void);
9
 
10
/* Main procedure for fortran programs.  All we do is set up the environment
11
   for the Fortran program.  */
12
int
13
main (int argc, char *argv[])
14
{
15
  /* Set up the runtime environment.  */
16
  set_args (argc, argv);
17
 
18
  /* Call the Fortran main program.  Internally this is a function
19
     called MAIN__ */
20
  MAIN__ ();
21
 
22
  /* Bye-bye!  */
23
  return 0;
24
}

powered by: WebSVN 2.1.0

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