re PR fortran/11301 (ICE with -fno-globals)

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.

From-SVN: r69155

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1d4787d91c98dcd07f25ce65d4546f8de5643f4b..fc48b204915f92554fd4e8c53ac49b14bfc277af 100644 (file)
--- 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 4d2860c4dcf5c4b14bb8095d769ba74a26507bf3..770daf9e37830560f16a4b5f8b84ba61cda488bb 100644 (file)
--- 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)