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:
parent
a3400cd548
commit
b141ff67de
|
@ -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>
|
2007-06-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/25061
|
PR fortran/25061
|
||||||
|
|
|
@ -2417,7 +2417,7 @@ gfc_match_common (void)
|
||||||
if (gfc_add_in_common (&sym->attr, sym->name, NULL) == FAILURE)
|
if (gfc_add_in_common (&sym->attr, sym->name, NULL) == FAILURE)
|
||||||
goto cleanup;
|
goto cleanup;
|
||||||
|
|
||||||
if (sym->value != NULL
|
if (sym->value != NULL && sym->value->expr_type != EXPR_NULL
|
||||||
&& (name[0] == '\0' || !sym->attr.data))
|
&& (name[0] == '\0' || !sym->attr.data))
|
||||||
{
|
{
|
||||||
if (name[0] == '\0')
|
if (name[0] == '\0')
|
||||||
|
|
Loading…
Reference in New Issue