Merge tree-ssa-20020619-branch into mainline.

From-SVN: r81764

1 files changed, 22 insertions, 0 deletions

diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c
new file mode 100644
index 00000000000..ec621256df1
--- /dev/null
+++ b/libgfortran/fmain.c
@@ -0,0 +1,22 @@
+#include "config.h"
+#include "libgfortran.h"
+
+/* The main Fortran program actually is a function, called MAIN__.
+   We call it from the main() function in this file.  */
+void MAIN__ (void);
+
+/* Main procedure for fortran programs.  All we do is set up the environment
+   for the Fortran program.  */
+int
+main (int argc, char *argv[])
+{
+  /* Set up the runtime environment.  */
+  set_args (argc, argv);
+
+  /* Call the Fortran main program.  Internally this is a function
+     called MAIN__ */
+  MAIN__ ();
+
+  /* Bye-bye!  */
+  return 0;
+}