diff options
author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-10 12:34:10 +0000 |
---|---|---|
committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-10 12:34:10 +0000 |
commit | e62a9fe51945ba553bccd4de3eb2c9556a48815a (patch) | |
tree | e4bfb3ac27301691661b941a19eba9ee4eb3602f /gcc/fortran | |
parent | feb116688bb38498dabda39a9a15b45f3b5b0894 (diff) | |
download | gcc-e62a9fe51945ba553bccd4de3eb2c9556a48815a.tar.gz |
2009-06-10 Dave Korn <dave.korn.cygwin@gmail.com>
* trans-decl.c (create_main_function): Don't build main decl twice.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148344 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/fortran/trans-decl.c | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5326973b39c..cb5312066a3 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 33d459ade2a..a491c0b1f21 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; |