blob: 5f0b5b5da1d18b4f1490feeaf0036ec4f309feb1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
program intrinsic_mmloc_2
real a(-1:1), b(2:3), c(1:2)
integer, dimension(1):: i
real (kind = 8), dimension(-1:1) :: vc
a = 0
b = 0
c = 0
a(-1) = 1
b(2) = 1
c(1) = 1
if (maxloc (a, 1) .ne. 1) call abort()
if (maxloc (b, 1) .ne. 1) call abort()
if (maxloc (c, 1) .ne. 1) call abort()
! We were giving MINLOC and MAXLOC the wrong return type
vc = (/4.0d0, 2.50d1, 1.0d1/)
i = minloc (vc)
if (i(1) .ne. 1) call abort()
END PROGRAM
|
