| ! { dg-do compile } | |
| ! { dg-options "-frepack-arrays " } | |
| ! | |
| ! Original class_array_11.f03 but with -frepack-arrays a new | |
| ! ICE was produced reported in | |
| ! PR fortran/69659 | |
| ! | |
| ! Original testcase by Ian Harvey <ian_harvey@bigpond.com> | |
| ! Reduced by Janus Weil <Janus@gcc.gnu.org> | |
| IMPLICIT NONE | |
| TYPE :: ParentVector | |
| INTEGER :: a | |
| END TYPE ParentVector | |
| CONTAINS | |
| SUBROUTINE vector_operation(pvec) | |
| CLASS(ParentVector), INTENT(INOUT) :: pvec(:) | |
| print *,pvec(1)%a | |
| END SUBROUTINE | |
| END | |