| D | reduction3.f90 | 6 double precision :: d, da (5) variable 14 da = 6.5 32 da(2:4) = 8.5 39 da(1:3) = 2.5 46 da = -1 53 if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) call abort 61 da = 6.5 79 da(2:4) = 8.5 86 da(1:3) = 2.5 94 da(1:4) = 6 [all …]
|