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