gcc/testsuite/gfortran.dg/class_array_10.f03


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile }
!
! PR fortran/41587
! This program was leading to an ICE related to class allocatable arrays
!
! Contributed by Dominique D'Humieres <dominiq@lps.ens.fr>

type t0
  integer :: j = 42
end type t0
type t
  integer :: i
  class(t0), allocatable :: foo(:)
end type t
type(t) :: k
allocate(t0 :: k%foo(3))
print *, k%foo%j
end