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