1 ! { dg-do run { xfail spu-*-* } }
2 ! FAILs on SPU because of rounding error reading kinds.h
4 ! Test scalar masks for different intrinsics.
5 real, dimension(2,2) :: a
12 if (any (minloc (a
, lo
) /= 0)) STOP 1
13 if (any (minloc (a
, .true
.) /= (/ 2, 2 /))) STOP 2
14 if (any (minloc(a
, 1, .true
.) /= (/ 1, 2/))) STOP 3
15 if (any (minloc(a
, 1, lo
) /= (/ 0, 0/))) STOP 4
17 if (any (maxloc (a
, lo
) /= 0)) STOP 5
18 if (any (maxloc (a
, .true
.) /= (/ 2,1 /))) STOP 6
19 if (any (maxloc(a
, 1, .true
.) /= (/ 2, 1/))) STOP 7
20 if (any (maxloc(a
, 1, lo
) /= (/ 0, 0/))) STOP 8
22 if (any (maxval(a
, 1, lo
) /= -HUGE(a
))) STOP 9
23 if (any (maxval(a
, 1, .true
.) /= (/13., -1./))) STOP 10
24 if (any (minval(a
, 1, lo
) /= HUGE(a
))) STOP 11
25 if (any (minval(a
, 1, .true
.) /= (/1., -31./))) STOP 12
27 if (any (product(a
, 1, .true
.) /= (/13., 31./))) STOP 13
28 if (any (product(a
, 1, lo
) /= (/1., 1./))) STOP 14
30 if (any (sum(a
, 1, .true
.) /= (/14., -32./))) STOP 15
31 if (any (sum(a
, 1, lo
) /= (/0., 0./))) STOP 16