| ! { 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 |