diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-08 00:05:27 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-07-08 00:05:27 +0000 |
| commit | d468bcdb40786941b170dc65214478dc632c0222 (patch) | |
| tree | fb6e9415ff31751170705fca7c1dc2711455b882 | |
| parent | b71b4522b534a93471f68f5ca1efd111315f5c5e (diff) | |
| download | gcc-d468bcdb40786941b170dc65214478dc632c0222.zip gcc-d468bcdb40786941b170dc65214478dc632c0222.tar.gz gcc-d468bcdb40786941b170dc65214478dc632c0222.tar.bz2 | |
re PR fortran/32644 ("CHARACTER*1, c" produces "Unclassifiable statement")
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.
From-SVN: r126450
| -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; |