diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index fab7c23..bd31634 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1161,8 +1161,8 @@ get_pdt_spec_expr (gfc_component *c, gfc_expr *expr) param_tail->spec_type = SPEC_ASSUMED; if (c->attr.pdt_kind) { - gfc_error ("The KIND parameter in the PDT constructor " - "at %C has no value"); + gfc_error ("The KIND parameter %qs in the PDT constructor " + "at %C has no value", param->name); return false; } } @@ -1188,7 +1188,8 @@ get_pdt_constructor (gfc_expr *expr, gfc_constructor **constr, for (; comp && cons; comp = comp->next, cons = gfc_constructor_next (cons)) { - if (cons->expr->expr_type == EXPR_STRUCTURE + if (cons->expr + && cons->expr->expr_type == EXPR_STRUCTURE && comp->ts.type == BT_DERIVED) { t = get_pdt_constructor (cons->expr, NULL, comp->ts.u.derived); |