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

2003-07-05  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR Fortran/11301
	* com.c (ffecom_sym_transform_): Only install
	FFEINFO_whereGLOBAL symbols in the global binding
	level if not -fno-globals.

From-SVN: r68972

gcc/f/ChangeLog

+2003-07-05  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	PR Fortran/11301
+	* com.c (ffecom_sym_transform_): Only install
+	FFEINFO_whereGLOBAL symbols in the global binding
+	level if not -fno-globals.
+
 Wed Jul  2 21:16:02 2003  Neil Booth  <neil@daikokuya.co.uk>
 
 	* top.c (ffe_init_options): Update prototype.

gcc/f/com.c

@@ -8078,7 +8078,7 @@ ffecom_sym_transform_ (ffesymbol s)
 	  DECL_EXTERNAL (t) = 1;
 	  TREE_PUBLIC (t) = 1;
 
-	  t = start_decl (t, TRUE);
+	  t = start_decl (t, ffe_is_globals ());
 	  finish_decl (t, NULL_TREE, TRUE);
 
 	  if ((g != NULL)