1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
program arrays_28
implicit none
integer :: dim = 1, i, j, n = 6
integer(4) :: res_01(1), res_02(2)
integer(8) :: res_03(1)
integer(4) :: arr_01(6) = [-14, 3, 0, -2, 19, 1]
integer(4) :: arr_02(3, 3) = reshape( &
[-14, 30, -23, 0, -2, 1, -17, 7, -13], [3, 3])
integer(8) :: arr_03(6) = [-14_8, 3_8, 20_8, -2_8, 19_8, 1_8]
real (4) :: arr_04(6) = [-14., 3., 0., -2., 19., 25.]
integer(4), allocatable :: arr_05(:)
real (8), allocatable :: arr_06(:)
allocate(arr_05(n))
allocate(arr_06(n))
do i = 1, n
arr_05(i) = arr_01(n - i + 1)
end do
do i = 1, n
arr_06(i) = arr_04(n - i + 1)
end do
! MaxLoc
! Compile-time
if (minloc([-1, 0, -2, -3, -4], 1) /= 5) error stop
if (minloc([-1., 0., -2., -5., -4.], 1) /= 4) error stop
res_01 = minloc([-1_8, 2_8, -3_8, 4_8, -2_8])
if (res_01(1) /= 3) error stop
res_03(1) = minloc([-1_8, 2_8, -3_8, 4_8, -5_8], 1, kind=8)
if (res_03(1) /= 5_8) error stop
! Run-time
if (minloc(arr_01, 1) /= 1) error stop
res_02 = minloc(arr_02)
if (res_02(1) /= 3 .or. res_02(2) /= 1) error stop
res_01 = minloc(arr_03)
if (res_01(1) /= 1) error stop
res_01 = minloc(arr_04)
if (res_01(1) /= 1) error stop
if (minloc(arr_05, dim=1) /= 6) error stop
res_01 = minloc(arr_06)
if (res_01(1) /= 6) error stop
res_03 = minloc(arr_04, kind=8)
if (res_03(1) /= 1_8) error stop
! MaxLoc
! Compile-time
if (maxloc([-1, 0, -2, -3, -4], 1) /= 2) error stop
if (maxloc([-1., 0., -2., 3., -4.], 1) /= 4) error stop
res_01 = maxloc([-1_8, 2_8, -3_8, 4_8, -5_8])
if (res_01(1) /= 4) error stop
res_03(1) = maxloc([-1_8, 2_8, -3_8, 4_8, -5_8], 1, kind=8)
if (res_03(1) /= 4_8) error stop
! Run-time
if (maxloc(arr_01, 1) /= 5) error stop
res_02 = maxloc(arr_02)
if (res_02(1) /= 2 .and. res_02(2) /= 1) error stop
res_01 = maxloc(arr_03)
if (res_01(1) /= 3) error stop
res_01 = maxloc(arr_04)
if (res_01(1) /= 6) error stop
if (maxloc(arr_05, dim=1) /= 2) error stop
res_01 = maxloc(arr_06)
if (res_01(1) /= 1) error stop
res_03 = maxloc(arr_04, kind=8)
if (res_03(1) /= 6_8) error stop
end program arrays_28
|
