diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-09-17 18:24:37 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-09-17 18:24:37 +0000 |
| commit | 62d3c075d52f1b92481bd0cdb9b0ef242210f512 (patch) | |
| tree | 958630e32be5d6d40ebd26e96c747264a7f7378f /gcc/fortran/decl.c | |
| parent | 7ac3ed134b4ad4a0e82ed1acc062e694128f103b (diff) | |
| download | gcc-62d3c075d52f1b92481bd0cdb9b0ef242210f512.zip gcc-62d3c075d52f1b92481bd0cdb9b0ef242210f512.tar.gz gcc-62d3c075d52f1b92481bd0cdb9b0ef242210f512.tar.bz2 | |
re PR fortran/82173 ([meta-bug] Parameterized derived type errors)
2017-09-17 Paul Thomas <pault@gcc.gnu.org>
PR fortran/82173
* decl.c (gfc_get_pdt_instance): Use the component initializer
expression for the default, rather than the parameter value.
* resolve.c (resolve_pdt): New function.
(resolve_symbol): Call it. Remove false error, prohibiting
deferred type parameters for dummy arguments.
PR fortran/60483
* primary.c (gfc_match_varspec): If the type of an associate
name is unknown and yet there is a match, try resolving the
target expression and using its type.
2017-09-17 Paul Thomas <pault@gcc.gnu.org>
PR fortran/82173
* gfortran.dg/pdt_1.f03 : Eliminate spurious error checks.
* gfortran.dg/pdt_2.f03 : The same.
* gfortran.dg/pdt_3.f03 : The same.
* gfortran.dg/pdt_4.f03 : Add 'modtype' and two new errors in
module 'bad_vars'. Add error concerning assumed parameters and
save attribute.
* gfortran.dg/pdt_11.f03 : New test.
PR fortran/60483
* gfortran.dg/associate_9.f90 : Remove XFAIL and change to run.
* gfortran.dg/associate_25.f90 : New test.
* gfortran.dg/pdt_12.f03 : New test.
From-SVN: r252894
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 " |