gcc/testsuite/gfortran.dg/alloc_comp_scalar_1.f90

   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 !
   7 program 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) call abort
  17 end program main