4 real, dimension(2) :: a
7 if (product (a
, .false
.) /= 1.0) STOP 1
8 if (product (a
, .true
.) /= 6.0) STOP 2
9 if (sum (a
, .false
.) /= 0.0) STOP 3
10 if (sum (a
, .true
.) /= 5.0) STOP 4
11 if (maxval (a
, .true
.) /= 3.0) STOP 5
12 if (maxval (a
, .false
.) > -1e38
) STOP 6
13 if (maxloc (a
, 1, .true
.) /= 2) STOP 7
14 if (maxloc (a
, 1, .false
.) /= 0) STOP 8! Change to F2003 requirement.