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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index bcf606276e1b16c7c7a264d9a9b6f817f03fa3d2..0705ab89f039bc38157b692538128bf145f2356c 100644 (file)
--- 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 f0dbea285d87d53e55feba4f24847ccfc5a963bc..67e8ef7eee25479b498737001898ed958577a8c2 100644 (file)
--- 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;