From: Dave Korn <dave.korn.cygwin@gmail.com>
Date: Wed, 10 Jun 2009 12:34:10 +0000 (+0000)
Subject: trans-decl.c (create_main_function): Don't build main decl twice.
X-Git-Tag: releases/gcc-4.5.0~5277
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=f788ca8980d123476d820104aa0e171df05bfc3d;p=thirdparty%2Fgcc.git

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 5326973b39c0..cb5312066a3a 100644
--- 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 33d459ade2ad..a491c0b1f219 100644
--- 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;