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

gcc/fortran/ChangeLog

+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,

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;