diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 8 |
2 files changed, 8 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index bcf6062..0705ab8 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-07 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + 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 <kazu@codesourcery.com> * decl.c, gfortran.h, interface.c, module.c, resolve.c, diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f0dbea2..67e8ef7 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; |