1! { dg-do run } 2! Test the fix for comment #8 of PR41478, in which copying 3! allocatable scalar components caused a segfault. 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6! 7program main 8 type :: container_t 9 integer, allocatable :: entry 10 end type container_t 11 type(container_t), dimension(1) :: a1, a2 12 allocate (a1(1)%entry, a2(1)%entry) 13 a2(1)%entry = 1 14 a1(1:1) = pack (a2(1:1), mask = [.true.]) 15 deallocate (a2(1)%entry) 16 if (a1(1)%entry .ne. 1) STOP 1 17end program main 18