1 files changed, 24 insertions, 0 deletions
diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c
new file mode 100644
index 000000000..a99263cc5
--- /dev/null
+++ b/libgfortran/fmain.c
@@ -0,0 +1,24 @@
+/* Note that this file is not used as of GFortran 4.5, and exists here
+   only for backwards compatibility.  */
+
+#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;
+}