1! { dg-do compile }
2!
3! PR fortran/41587
4! This program was leading to an ICE related to class allocatable arrays
5!
6! Contributed by Dominique D'Humieres <dominiq@lps.ens.fr>
7
8type t0
9  integer :: j = 42
10end type t0
11type t
12  integer :: i
13  class(t0), allocatable :: foo(:)
14end type t
15type(t) :: k
16allocate(t0 :: k%foo(3))
17print *, k%foo%j
18end
19