https://gcc.gnu.org/bugzilla/show_bug.cgi?id=60483

--- Comment #10 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Sun Sep 17 18:24:37 2017
New Revision: 252894

URL: https://gcc.gnu.org/viewcvs?rev=252894&root=gcc&view=rev
Log:
2017-09-17  Paul Thomas  <pa...@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  <pa...@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.

Added:
    trunk/gcc/testsuite/gfortran.dg/associate_25.f90
    trunk/gcc/testsuite/gfortran.dg/pdt_11.f03
    trunk/gcc/testsuite/gfortran.dg/pdt_12.f03
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/primary.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/associate_9.f03
    trunk/gcc/testsuite/gfortran.dg/pdt_1.f03
    trunk/gcc/testsuite/gfortran.dg/pdt_2.f03
    trunk/gcc/testsuite/gfortran.dg/pdt_3.f03
    trunk/gcc/testsuite/gfortran.dg/pdt_4.f03

Reply via email to