trans-decl.c (create_main_function): Don't build main decl twice.

2009-06-10  Dave Korn  <dave.korn.cygwin@gmail.com>

        * trans-decl.c (create_main_function):  Don't build main decl twice.

From-SVN: r148344

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5326973b39c07943057cfceb885854bd03249191..cb5312066a3a4acd0be86ae62785655552c79d4e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-10  Dave Korn  <dave.korn.cygwin@gmail.com>
+
+       * trans-decl.c (create_main_function):  Don't build main decl twice.
+
 2009-06-09  Tobias Burnus  <burnus@net-b.de>
 
        * trans-decl.c (gfc_generate_function_code): Use gfc_option.rtcheck

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 33d459ade2ad48099d941dc35c30e43e190d5f92..a491c0b1f219e5eff5aceb394a9c55cf9b40cf10 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -3876,7 +3876,6 @@ create_main_function (tree fndecl)
                                   NULL_TREE);
   main_identifier_node = get_identifier ("main");
   ftn_main = build_decl (FUNCTION_DECL, main_identifier_node, tmp);
-  ftn_main = build_decl (FUNCTION_DECL, get_identifier ("main"), tmp);
   DECL_EXTERNAL (ftn_main) = 0;
   TREE_PUBLIC (ftn_main) = 1;
   TREE_STATIC (ftn_main) = 1;