This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/34557] [4.3 regression] Rejects valid: EQUIVALENCE of character substrings
- From: "burnus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 3 Jan 2008 15:38:53 -0000
- Subject: [Bug fortran/34557] [4.3 regression] Rejects valid: EQUIVALENCE of character substrings
- References: <bug-34557-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #3 from burnus at gcc dot gnu dot org 2008-01-03 15:38 -------
Patch.
Index: gcc/fortran/primary.c
===================================================================
--- gcc/fortran/primary.c (Revision 131302)
+++ gcc/fortran/primary.c (Arbeitskopie)
@@ -1679,6 +1679,7 @@ match_varspec (gfc_expr *primary, int eq
tail = NULL;
+ gfc_gobble_whitespace ();
if ((equiv_flag && gfc_peek_char () == '(') || sym->attr.dimension)
{
/* In EQUIVALENCE, we don't know yet whether we are seeing
@@ -1692,6 +1693,7 @@ match_varspec (gfc_expr *primary, int eq
if (m != MATCH_YES)
return m;
+ gfc_gobble_whitespace ();
if (equiv_flag && gfc_peek_char () == '(')
{
tail = extend_ref (primary, tail);
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34557