2 ! Test the fix for PR52386.
4 ! Contributed by Juergen Reuter <reuter@physik.uni-freiburg.de>
10 function reduced (array
)
11 integer, dimension(:), allocatable
:: reduced
12 integer, dimension(:), intent(in
) :: array
13 logical, dimension(size(array
)) :: mask
15 allocate (reduced (count (mask
)))
16 reduced
= pack (array
, mask
)