133965Sjdp! { dg-do run }
2104834Sobrien!
3218822Sdim! PR fortran/67721
433965Sjdp! Check that scalar to array assignments of derived type constructor
533965Sjdp! deep copy the value when there are allocatable components.
633965Sjdp
733965Sjdpprogram p
860484Sobrien  implicit none
933965Sjdp
1033965Sjdp  type :: t1
1133965Sjdp    integer :: c1
1233965Sjdp  end type t1
1333965Sjdp  type :: t2
1433965Sjdp    type(t1), allocatable :: c2
1533965Sjdp  end type t2
1633965Sjdp
1733965Sjdp  block
1833965Sjdp    type(t2) :: v(4)
1933965Sjdp
2033965Sjdp    v = t2(t1(3))
2133965Sjdp    v(2)%c2%c1 =  7
2233965Sjdp    v(3)%c2%c1 = 11
2333965Sjdp    v(4)%c2%c1 = 13
24218822Sdim
25218822Sdim    if (v(1)%c2%c1 /=  3) call abort
2633965Sjdp    if (v(2)%c2%c1 /=  7) call abort
27218822Sdim    if (v(3)%c2%c1 /= 11) call abort
28218822Sdim    if (v(4)%c2%c1 /= 13) call abort
29218822Sdim  end block
3033965Sjdpend program p
31218822Sdim