PR fortran/34227
* match.c (gfc_match_common): Add additional check for BLOCK DATA.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130483
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/34227
+ * match.c (gfc_match_common): Add additional check for BLOCK DATA.
+
2007-11-27 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29389
goto cleanup;
}
+ if (((sym->value != NULL && sym->value->expr_type != EXPR_NULL)
+ || sym->attr.data) && gfc_current_state () != COMP_BLOCK_DATA)
+ {
+ if (gfc_notify_std (GFC_STD_GNU, "Initialized symbol '%s' at %C "
+ "can only be COMMON in "
+ "BLOCK DATA", sym->name)
+ == FAILURE)
+ goto cleanup;
+ }
+
if (gfc_add_in_common (&sym->attr, sym->name, NULL) == FAILURE)
goto cleanup;