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

re PR fortran/32361 (TYPE DECLARATION TO INITIALIZE DATA IN NAMED COMMON) 

2007-06-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32361
	* match.c (gfc_match_common): If the symbol value expression type is
	NULL_EXPR, don't error if previously initialized.

From-SVN: r125908
This commit is contained in:
Jerry DeLisle 2007-06-21 02:23:45 +00:00
parent a3400cd548
commit b141ff67de
2 changed files with 7 additions and 1 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-06-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/32361
* match.c (gfc_match_common): If the symbol value expression type is
NULL_EXPR, don't error if previously initialized.
2007-06-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/25061

2
gcc/fortran/match.c
View File

@ -2417,7 +2417,7 @@ gfc_match_common (void)
if (gfc_add_in_common (&sym->attr, sym->name, NULL) == FAILURE)
goto cleanup;
if (sym->value != NULL
if (sym->value != NULL && sym->value->expr_type != EXPR_NULL
&& (name[0] == '\0' || !sym->attr.data))
{
if (name[0] == '\0')