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