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