------- 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