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

gcc/f/ChangeLog

+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.

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)