| ! { dg-do compile } | |
| ! internal compiler error: in gfc_build_dummy_array_decl, at | |
| ! fortran/trans-decl.cc:1317 | |
| ! | |
| ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| ! | |
| program p | |
| type t0 | |
| integer :: i | |
| end type | |
| type t | |
| class(t0), allocatable :: a(:) | |
| end type | |
| class(t0), allocatable :: arg(:) | |
| allocate (arg, source = [t0(1), t0(2)]) | |
| call s(arg) | |
| contains | |
| subroutine s(x) | |
| class(t0) :: x(:) | |
| type(t) :: z | |
| associate (y => x) | |
| z%a = y | |
| end associate | |
| if (size(z%a) .ne. 2) stop 1 | |
| end | |
| end |