| commit | 26219cee84430d38c60637b6fcfffcee80e11c14 | |
| author | Paul Thomas <pault@gcc.gnu.org> | |
| Sun, 11 Mar 2018 22:25:11 +0000 (11 22:25 +0000) | ||
| committer | Paul Thomas <pault@gcc.gnu.org> | |
| Sun, 11 Mar 2018 22:25:11 +0000 (11 22:25 +0000) | ||
| tree | 967c16a73c8b9dd9bc89ae8e0c84a1baf6462d69 | treesnapshot (tar.gz zip) |
| parent | 1813c97a6fd41062e5154e1fb0e7e2cc762306a5 | commitdiff |
re PR fortran/84546 (Bad sourced allocation of CLASS(*) with source with CLASS(*) component)
2018-03-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/84546
* trans-array.c (structure_alloc_comps): Make sure that the
vptr is copied and that the unlimited polymorphic _len is used
to compute the size to be allocated.
* trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
unlimited polymorphic _len for the offset to the element.
(gfc_copy_class_to_class): Set the new 'unlimited' argument.
* trans.h : Add the boolean 'unlimited' to the prototype.
2018-03-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/84546
* gfortran.dg/unlimited_polymorphic_29.f90 : New test.
From-SVN: r258438
2018-03-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/84546
* trans-array.c (structure_alloc_comps): Make sure that the
vptr is copied and that the unlimited polymorphic _len is used
to compute the size to be allocated.
* trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
unlimited polymorphic _len for the offset to the element.
(gfc_copy_class_to_class): Set the new 'unlimited' argument.
* trans.h : Add the boolean 'unlimited' to the prototype.
2018-03-11 Paul Thomas <pault@gcc.gnu.org>
PR fortran/84546
* gfortran.dg/unlimited_polymorphic_29.f90 : New test.
From-SVN: r258438