From: toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 5 Jul 2003 13:37:39 +0000 (+0000)
Subject: 2003-07-05  Toon Moene  <toon@moene.indiv.nluug.nl>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1ec445cf16d8565285caf8727a740ff07692dfe3;p=thirdparty%2Fgcc.git

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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@68972 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 895db166a774..1203559edbab 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+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.
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 56ad42bf9814..e9a205324049 100644
--- a/gcc/f/com.c
+++ b/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)