1! { dg-do run } 2! PR 59781 - this was not initialized correctly before. 3! Original test case by James Spencer. 4 implicit none 5 6 type t1 7 integer :: s 8 end type 9 10 type t2 11 type(t1) :: state = t1(1) 12 real, allocatable :: store(:) 13 end type 14 15 call test 16 17contains 18 19 subroutine test 20 type(t2) :: rng 21 if (rng%state%s /= 1) STOP 1 22 end subroutine 23 24end 25