* fmain.c (main): Don't PREFIX set_args.

        * libgfortran.h (set_args): Use iexport_proto.
        * runtime/main.c (set_args): Use iexport.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148472 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog

@@ -1,3 +1,9 @@
+2009-06-14 Francois-Xavier Coudert <[email protected]>
+
+	* fmain.c (main): Don't PREFIX set_args.
+	* libgfortran.h (set_args): Use iexport_proto.
+	* runtime/main.c (set_args): Use iexport.
+
 2009-06-07  Jerry DeLisle  <[email protected]>
 
 	PR libfortran/40008

libgfortran/fmain.c

@@ -10,7 +10,7 @@ int
 main (int argc, char *argv[])
 {
   /* Set up the runtime environment.  */
-  PREFIX(set_args) (argc, argv);
+  set_args (argc, argv);
 
   /* Call the Fortran main program.  Internally this is a function
      called MAIN__ */

libgfortran/libgfortran.h

@@ -606,7 +606,7 @@ extern void stupid_function_name_for_static_linking (void);
 internal_proto(stupid_function_name_for_static_linking);
 
 extern void set_args (int, char **);
-export_proto(set_args);
+iexport_proto(set_args);
 
 extern void get_args (int *, char ***);
 internal_proto(get_args);

libgfortran/runtime/main.c

@@ -131,6 +131,7 @@ set_args (int argc, char **argv)
   argv_save = argv;
   store_exe_path (argv[0]);
 }
+iexport(set_args);
 
 
 /* Retrieve the saved values of the command line arguments.  */