! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
! { dg-do run } | |
program test | |
implicit none | |
real, volatile, allocatable :: A(:) | |
logical, volatile :: mask(11) | |
A = [1,2,3,5,6,1,35,3,7,-3,-47] | |
mask = .true. | |
mask(7) = .false. | |
mask(11) = .false. | |
call sub2 (minloc(A),11) | |
call sub2 (maxloc(A, mask=mask),9) | |
A = minloc(A) | |
if (size (A) /= 1 .or. A(1) /= 11) STOP 1 | |
contains | |
subroutine sub2(A,n) | |
integer :: A(:),n | |
if (A(1) /= n .or. size (A) /= 1) STOP 2 | |
end subroutine sub2 | |
end program test |