Lines Matching defs:inf
9 real, parameter :: inf = 2 * huge(0.)
14 if (.not. isnan(fraction(inf))) call abort
15 if (.not. isnan(fraction(-inf))) call abort
20 if (exponent(inf) /= huge(0)) call abort
21 if (exponent(-inf) /= huge(0)) call abort
26 if (.not. isnan(spacing(inf))) call abort
27 if (.not. isnan(spacing(-inf))) call abort
32 if (.not. isnan(rrspacing(inf))) call abort
33 if (.not. isnan(rrspacing(-inf))) call abort
38 if (.not. isnan(set_exponent(inf, 42))) call abort
39 if (.not. isnan(set_exponent(-inf, 42))) call abort