blob: f5a732dc6c3e800693065b22a2753573a22bb2f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do run }
integer :: a(3), n
a(1) = -huge(n)
a(2) = -huge(n)
a(3) = -huge(n)
a(1) = a(1) - 1
a(2) = a(2) - 1
a(3) = a(3) - 1
n = maxloc (a, dim = 1)
if (n .ne. 1) STOP 1
a(2) = -huge(n)
n = maxloc (a, dim = 1)
if (n .ne. 2) STOP 2
end
|