1 ! Program to test the MINVAL and MAXVAL intrinsics
4 integer, dimension (3, 3) :: a
5 integer, dimension (3) :: b
6 logical, dimension (3, 3) :: m
, tr
10 a
= reshape ((/1, 2, 3, 5, 4, 6, 9, 8, 7/), (/3, 3/));
15 if (any(b
.ne
. (/1, 4, 7/))) call abort
16 write (line
, 9000) minval (a
, 1)
17 if (line
.ne
. ' 1 4 7') call abort
23 if (any(b
.ne
. (/2, 4, 7/))) call abort
24 b
= minval (a
, 1, m
.and
. tr
)
25 if (any(b
.ne
. (/2, 4, 7/))) call abort
26 write (line
, 9000) minval(a
, 1, m
)
27 if (line
.ne
. ' 2 4 7') call abort
30 if (any(b
.ne
. (/3, 6, 9/))) call abort
31 write (line
, 9000) maxval (a
, 1)
32 if (line
.ne
. ' 3 6 9') call abort
38 if (any(b
.ne
. (/3, 6, 8/))) call abort
39 b
= maxval (a
, 1, m
.and
. tr
)
40 if (any(b
.ne
. (/3, 6, 8/))) call abort
41 write (line
, 9000) maxval(a
, 1, m
)
42 if (line
.ne
. ' 3 6 8') call abort