1! PR target/43808 2! { dg-do run } 3! { dg-options "-O0 -fipa-reference -fschedule-insns -fstrict-aliasing" } 4 5 type :: a 6 integer, allocatable :: i(:) 7 end type a 8 type :: b 9 type (a), allocatable :: j(:) 10 end type b 11 type(a) :: x(2) 12 type(b) :: y(2) 13 x(1) = a((/1,2,3,4/)) 14 x(2) = a((/1,2,3,4/)+10) 15 y(1) = b((/x(1),x(2)/)) 16 y(2) = b((/x(1),x(2)/)) 17 if (y(1)%j(1)%i(1) .ne. 1) call abort 18end 19