diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index f6e0a7f..18220a1 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -3275,8 +3275,8 @@ gfc_get_pdt_instance (gfc_actual_arglist *param_list, gfc_symbol **sym, kind_expr = gfc_copy_expr (actual_param->expr); else { - if (param->value) - kind_expr = gfc_copy_expr (param->value); + if (c1->initializer) + kind_expr = gfc_copy_expr (c1->initializer); else if (!(actual_param && param->attr.pdt_len)) { gfc_error ("The derived parameter '%qs' at %C does not " |