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