gcc/testsuite/gfortran.dg/realloc_on_assign_13.f90

   1 ! { dg-do compile }
   2 ! Test the fix for PR52386.
   3 !
   4 ! Contributed by Juergen Reuter  <reuter@physik.uni-freiburg.de>
   5 !
   6 module cascades
   7   implicit none
   8   private
   9 contains
  10     function reduced (array)
  11       integer, dimension(:), allocatable :: reduced
  12       integer, dimension(:), intent(in) :: array
  13       logical, dimension(size(array)) :: mask
  14       mask = .true.
  15       allocate (reduced (count (mask)))
  16       reduced = pack (array, mask)
  17     end function reduced
  18 end module cascades
  19 ! { dg-final { cleanup-modules "cascades" } }
  20