diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-21 02:23:45 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-06-21 02:23:45 +0000 |
| commit | b141ff67de7c25881905b51688f06109fb067c3f (patch) | |
| tree | 1afcc816a6045ec77f92e3fb56bad90eb7ea879a | |
| parent | a3400cd548e8b0637750159ae0c85ccc466b95cf (diff) | |
| download | gcc-b141ff67de7c25881905b51688f06109fb067c3f.zip gcc-b141ff67de7c25881905b51688f06109fb067c3f.tar.gz gcc-b141ff67de7c25881905b51688f06109fb067c3f.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/match.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 446d8b1..a3f52ef 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 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 * decl.c (get_proc_name) Check symbol for generic interface and issue an error. diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c index e544d6d..d1f5f41 100644 --- a/gcc/fortran/match.c +++ b/gcc/fortran/match.c @@ -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') |