diff options
| author | Dave Korn <dave.korn.cygwin@gmail.com> | 2009-06-10 12:34:10 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-06-10 14:34:10 +0200 |
| commit | f788ca8980d123476d820104aa0e171df05bfc3d (patch) | |
| tree | e4bfb3ac27301691661b941a19eba9ee4eb3602f | |
| parent | b0cde35bbda73106a2e97928768216e71cd9e6c1 (diff) | |
| download | gcc-f788ca8980d123476d820104aa0e171df05bfc3d.zip gcc-f788ca8980d123476d820104aa0e171df05bfc3d.tar.gz gcc-f788ca8980d123476d820104aa0e171df05bfc3d.tar.bz2 | |
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
| -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 5326973..cb53120 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 33d459a..a491c0b 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; |