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