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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [libgfortran/] [fmain.c] - Blame information for rev 14

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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