diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-07-09 21:12:54 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-07-09 21:12:54 +0000 |
| commit | 74bee2712fd6db06c7c7567fa40fe1e1858e41a2 (patch) | |
| tree | b7fffa5e4ab2d120843445e6fad6aa10311903a4 | |
| parent | 474625ce67334eefd2aeed3dcd37f2f9478e03b3 (diff) | |
| download | ppe42-gcc-74bee2712fd6db06c7c7567fa40fe1e1858e41a2.tar.gz ppe42-gcc-74bee2712fd6db06c7c7567fa40fe1e1858e41a2.zip | |
2003-07-09 Toon Moene <toon@moene.indiv.nluug.nl>
PR Fortran/11301
* com.c (ffecom_sym_transform_): finish_decl should have
the same last argument as start_decl.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@69155 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/f/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 1d4787d91c9..fc48b204915 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +2003-07-09 Toon Moene <toon@moene.indiv.nluug.nl> + + PR Fortran/11301 + * com.c (ffecom_sym_transform_): finish_decl should have + the same last argument as start_decl. + 2003-07-08 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> * Make-lang.in (f/g77.dvi): Use PWD_COMMAND. diff --git a/gcc/f/com.c b/gcc/f/com.c index 4d2860c4dcf..770daf9e378 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -8074,7 +8074,7 @@ ffecom_sym_transform_ (ffesymbol s) TREE_PUBLIC (t) = 1; t = start_decl (t, ffe_is_globals ()); - finish_decl (t, NULL_TREE, TRUE); + finish_decl (t, NULL_TREE, ffe_is_globals ()); if ((g != NULL) && ((ffeglobal_type (g) == FFEGLOBAL_typeSUBR) |
