From d468bcdb40786941b170dc65214478dc632c0222 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 8 Jul 2007 00:05:27 +0000 Subject: [PATCH] re PR fortran/32644 ("CHARACTER*1, c" produces "Unclassifiable statement") 2007-07-07 Jerry DeLisle PR fortran/32644 * decl.c (match_attr_spec): Don't return MATCH_ERROR if comma found and gfc_match_bind_c does not return MATCH_YES. From-SVN: r126450 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/decl.c | 8 ++------ 2 files changed, 8 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bcf606276e1..0705ab89f03 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-07 Jerry DeLisle + + PR fortran/32644 + * decl.c (match_attr_spec): Don't return MATCH_ERROR if comma found and + gfc_match_bind_c does not return MATCH_YES. + 2007-07-07 Kazu Hirata * decl.c, gfortran.h, interface.c, module.c, resolve.c, diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f0dbea285d8..67e8ef7eee2 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2507,15 +2507,11 @@ match_attr_spec (void) /* Chomp the comma. */ peek_char = gfc_next_char (); /* Try and match the bind(c). */ - if (gfc_match_bind_c (NULL) == MATCH_YES) + if (gfc_match_bind_c (NULL) == MATCH_YES) d = DECL_IS_BIND_C; - else - { - return MATCH_ERROR; - } } } - + if (d == DECL_NONE || d == DECL_COLON) break; -- 2.30.2