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

gcc/fortran/ChangeLog

 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.

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')