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