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

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1d4787d..fc48b20 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 4d2860c..770daf9 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)