diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 2e6e98a..3a36cad 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1353,14 +1353,14 @@ add_init_expr_to_sym (const char *name, gfc_expr **initp, locus *var_locus) if (sym->ts.type != BT_DERIVED && init->ts.type != BT_DERIVED && sym->ts.type != BT_CLASS && init->ts.type != BT_CLASS && !sym->attr.proc_pointer - && gfc_check_assign_symbol (sym, init) == FAILURE) + && gfc_check_assign_symbol (sym, NULL, init) == FAILURE) return FAILURE; if (sym->ts.type == BT_CHARACTER && sym->ts.u.cl && init->ts.type == BT_CHARACTER) { /* Update symbol character length according initializer. */ - if (gfc_check_assign_symbol (sym, init) == FAILURE) + if (gfc_check_assign_symbol (sym, NULL, init) == FAILURE) return FAILURE; if (sym->ts.u.cl->length == NULL) @@ -6955,7 +6955,7 @@ do_parm (void) goto cleanup; } - if (gfc_check_assign_symbol (sym, init) == FAILURE + if (gfc_check_assign_symbol (sym, NULL, init) == FAILURE || gfc_add_flavor (&sym->attr, FL_PARAMETER, sym->name, NULL) == FAILURE) { m = MATCH_ERROR; |