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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 446d8b173cd2a0cc6fabf6423f50554ed3654a47..a3f52ef1b578871456c20518296d1ea15904aa24 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -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

diff --git a/gcc/fortran/match.c b/gcc/fortran/match.c
index e544d6d2a32339694f69de808c641addceeb79a4..d1f5f41636b5af74376e7781740a7d388bd37b8c 100644 (file)
--- 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')