diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2003-07-09 23:12:54 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-07-09 21:12:54 +0000 |
| commit | 64f970fe30cf0144a925e1004fc25a7bc18faa45 (patch) | |
| tree | b7fffa5e4ab2d120843445e6fad6aa10311903a4 /gcc/f/com.c | |
| parent | 15e4ea18d363c34ac79b4a63b8634c2444f0ef50 (diff) | |
| download | gcc-64f970fe30cf0144a925e1004fc25a7bc18faa45.zip gcc-64f970fe30cf0144a925e1004fc25a7bc18faa45.tar.gz gcc-64f970fe30cf0144a925e1004fc25a7bc18faa45.tar.bz2 | |
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
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 4d2860c..770daf9 100644 --- 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) |