[Bug fortran/60717] Wrong code with recursive procedure with unlimited polymorphic dummy argument

["pault at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60717

--- Comment #7 from Paul Thomas <pault at gcc dot gnu.org> ---
Author: pault
Date: Sun Apr 13 11:58:55 2014
New Revision: 209347

URL: http://gcc.gnu.org/viewcvs?rev=209347&root=gcc&view=rev
Log:
2014-04-13  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/58085
    PR fortran/60717
    * trans.h: Add 'use_offset' bitfield to gfc_se.
    * trans-array.c (gfc_conv_expr_descriptor): Use 'use_offset'
    as a trigger to unconditionally recalculate the offset for
    array slices and constant arrays.
    trans-expr.c (gfc_conv_intrinsic_to_class): Use it.
    trans-stmt.c (trans_associate_var): Ditto.
    (gfc_conv_procedure_call): Ditto.

2014-04-13  Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/60717
    * gfortran.dg/unlimited_polymorphic_17.f90: New test.

    PR fortran/58085
    * gfortran.dg/associate_15.f90: New test.

Added:
    trunk/gcc/testsuite/gfortran.dg/associate_15.f90
    trunk/gcc/testsuite/gfortran.dg/unlimited_polymorphic_17.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/trans-array.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-stmt.c
    trunk/gcc/fortran/trans.h
    trunk/gcc/testsuite/ChangeLog