diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-07-05 13:37:39 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-07-05 13:37:39 +0000 |
| commit | 1ec445cf16d8565285caf8727a740ff07692dfe3 (patch) | |
| tree | f3ddbd7274bfe816e5ba05282ad00d7b3eb918e9 | |
| parent | ad1617fbaea849530cc98ed4aa59957d81094041 (diff) | |
| download | ppe42-gcc-1ec445cf16d8565285caf8727a740ff07692dfe3.tar.gz ppe42-gcc-1ec445cf16d8565285caf8727a740ff07692dfe3.zip | |
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
| -rw-r--r-- | gcc/f/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 895db166a77..1203559edba 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 56ad42bf981..e9a20532404 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) |
