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
|
! Program to test min and max intrinsics
program intrinsic_minmax
implicit none
integer i, j, k, m
real r, s, t, u
i = 1
j = -2
k = 3
m = 4
if (min (i, k) .ne. 1) call abort
if (min (i, j, k, m) .ne. -2) call abort
if (max (i, k) .ne. 3) call abort
if (max (i, j, k, m) .ne. 4) call abort
if (max (i+1, j) .ne. 2) call abort
r = 1
s = -2
t = 3
u = 4
if (min (r, t) .ne. 1) call abort
if (min (r, s, t, u) .ne. -2) call abort
if (max (r, t) .ne. 3) call abort
if (max (r, s, t, u) .ne. 4) call abort
if (max (4d0, r) .ne. 4d0) call abort
if (amax0 (i, j) .ne. 1.0) call abort
if (min1 (r, s) .ne. -2) call abort
! Test simplify.
if (min (1, -2, 3, 4) .ne. -2) call abort
if (max (1, -2, 3, 4) .ne. 4) call abort
if (amax0 (1, -2) .ne. 1.0) call abort
if (min1 (1., -2.) .ne. -2) call abort
end program
|
