1 program intrinsic_mmloc_2
2 real a(-1:1), b(2:3), c(1:2)
3 integer, dimension(1):: i
4 real (kind
= 8), dimension(-1:1) :: vc
13 if (maxloc (a
, 1) .ne
. 1) STOP 1
14 if (maxloc (b
, 1) .ne
. 1) STOP 2
15 if (maxloc (c
, 1) .ne
. 1) STOP 3
18 ! We were giving MINLOC and MAXLOC the wrong return type
19 vc
= (/4.0d0, 2.50d1, 1.0d1/)
21 if (i(1) .ne
. 1) STOP 4