1! { dg-do compile }
2! Test the fix for PR52386.
3!
4! Contributed by Juergen Reuter  <reuter@physik.uni-freiburg.de>
5!
6module cascades
7  implicit none
8  private
9contains
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
18end module cascades
19