From 23acf4d41122152f857318a67d63a5f4e8f1cb32 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 12 Dec 2004 22:12:00 +0100 Subject: re PR fortran/18869 (multiple common blocks in a single line rejected) gcc/ PR fortran/18869 * match.c (gfc_match_common): Skip whitespace. testsuite/ PR fortran/18869 * gfortran.dg/common_1.f90: New test. From-SVN: r92064 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/match.c | 2 ++ 2 files changed, 7 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7c63b51..d000e03 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-12-12 Tobias Schlueter + + PR fortran/18869 + * match.c (gfc_match_common): Skip whitespace. + 2004-12-12 Steven G. Kargl PR fortran/16581 diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index 210de97..cf0c255 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -2306,12 +2306,14 @@ gfc_match_common (void) as = NULL; } + gfc_gobble_whitespace (); if (gfc_match_eos () == MATCH_YES) goto done; if (gfc_peek_char () == '/') break; if (gfc_match_char (',') != MATCH_YES) goto syntax; + gfc_gobble_whitespace (); if (gfc_peek_char () == '/') break; } -- cgit v1.1