re PR fortran/45516 ([F08] allocatable compontents of recursive type)
authorPaul Thomas <pault@gcc.gnu.org>
Tue, 25 Oct 2016 20:37:05 +0000 (20:37 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Tue, 25 Oct 2016 20:37:05 +0000 (20:37 +0000)
commitbf9f15ee55f5b291f7d3c0dfa4192e9e5924a2a5
tree33e3819d2249321176e33000909dc5e9aa0125fe
parent7c7dae654283dec6c03cd689ce3a5182b47fc5a0
re PR fortran/45516 ([F08] allocatable compontents of recursive type)

2016-10-25  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/45516
* class.c (gfc_find_derived_vtab): Detect recursive allocatable
derived type components. If present, add '_deallocate' field to
the vtable and build the '__deallocate' function.
* decl.c (build_struct): Allow recursive allocatable derived
type components for -std=f2008 or more.
(gfc_match_data_decl): Accept these derived types.
* expr.c (gfc_has_default_initializer): Ditto.
* resolve.c (resolve_component): Make sure that the vtable is
built for these derived types.
* trans-array.c(structure_alloc_comps) : Use the '__deallocate'
function for the automatic deallocation of these types.
* trans-expr.c : Generate the deallocate accessor.
* trans.h : Add its prototype.
* trans-types.c (gfc_get_derived_type): Treat the recursive
allocatable components in the same way as the corresponding
pointer components.

2016-10-25  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/45516
* gfortran.dg/class_2.f03: Set -std=f2003.
* gfortran.dg/finalize_21.f90: Modify tree-dump.
* gfortran.dg/recursive_alloc_comp_1.f08: New test.
* gfortran.dg/recursive_alloc_comp_2.f08: New test.
* gfortran.dg/recursive_alloc_comp_3.f08: New test.
* gfortran.dg/recursive_alloc_comp_4.f08: New test.

From-SVN: r241539
14 files changed:
gcc/fortran/class.c
gcc/fortran/decl.c
gcc/fortran/expr.c
gcc/fortran/resolve.c
gcc/fortran/trans-array.c
gcc/fortran/trans-expr.c
gcc/fortran/trans-types.c
gcc/fortran/trans.h
gcc/testsuite/gfortran.dg/class_2.f03
gcc/testsuite/gfortran.dg/finalize_21.f90
gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/recursive_alloc_comp_2.f08 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/recursive_alloc_comp_3.f08 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/recursive_alloc_comp_4.f08 [new file with mode: 0644]