3 ! Test scalar masks for different intrinsics.
4 real, dimension(2,2) :: a
11 if (any (minloc (a
, lo
) /= 0)) call abort
12 if (any (minloc (a
, .true
.) /= (/ 2, 2 /))) call abort
13 if (any (minloc(a
, 1, .true
.) /= (/ 1, 2/))) call abort
14 if (any (minloc(a
, 1, lo
) /= (/ 0, 0/))) call abort
16 if (any (maxloc (a
, lo
) /= 0)) call abort
17 if (any (maxloc (a
, .true
.) /= (/ 2,1 /))) call abort
18 if (any (maxloc(a
, 1, .true
.) /= (/ 2, 1/))) call abort
19 if (any (maxloc(a
, 1, lo
) /= (/ 0, 0/))) call abort
21 if (any (maxval(a
, 1, lo
) /= -HUGE(a
))) call abort
22 if (any (maxval(a
, 1, .true
.) /= (/13., -1./))) call abort
23 if (any (minval(a
, 1, lo
) /= HUGE(a
))) call abort
24 if (any (minval(a
, 1, .true
.) /= (/1., -31./))) call abort
26 if (any (product(a
, 1, .true
.) /= (/13., 31./))) call abort
27 if (any (product(a
, 1, lo
) /= (/1., 1./))) call abort
29 if (any (sum(a
, 1, .true
.) /= (/14., -32./))) call abort
30 if (any (sum(a
, 1, lo
) /= (/0., 0./))) call abort