OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Jerry DeLisle 2007-07-08 00:05:27 +00:00
parent b71b4522b5
commit d468bcdb40
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

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

8
gcc/fortran/decl.c
View File

@ -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;