Lines Matching refs:r4_ninf
85 real(4), parameter :: r4_ninf = -1._4/0._4
90 logical, parameter :: test_r4_ninf_parentheses = ((r4_ninf)).EQ.r4_ninf
95 logical, parameter :: test_r4_negation3 = (-r4_pinf).EQ.r4_ninf
96 logical, parameter :: test_r4_negation4 = (-r4_ninf).EQ.r4_pinf
100 logical, parameter :: test_r4_plus4 = (+r4_ninf).EQ.r4_ninf
110 logical, parameter :: test_inf_r4_add10 = (r4_nmax + r4_nmax).eq.(r4_ninf)
114 logical, parameter :: test_inf_r4_sub10 = (r4_nmax - r4_pmax).eq.(r4_ninf)
118 logical, parameter :: test_inf_r4_add2 = (r4_ninf + r4_ninf).EQ.(r4_ninf)
121 logical, parameter :: test_inf_r4_add5 = (r4_ninf + r4_pmax).EQ.(r4_ninf)
122 logical, parameter :: test_inf_r4_add6 = (r4_ninf + r4_nmax).EQ.(r4_ninf)
123 logical, parameter :: test_inf_r4_add7 = (r4_ninf + 0._4).EQ.(r4_ninf)
130 real(4), parameter :: r4_nan_sub2 = r4_ninf - r4_ninf
133 real(4), parameter :: r4_nan_add1 = r4_ninf + r4_pinf
136 real(4), parameter :: r4_nan_add2 = r4_pinf + r4_ninf
160 logical, parameter :: test_inf_r4_mult2 = (1.5_4*r4_nmax).eq.(r4_ninf)
164 logical, parameter :: test_inf_r4_div2 = (r4_pmax/(-0.5_4)).eq.(r4_ninf)
168 logical, parameter :: test_inf_r4_mult4 = (r4_ninf*r4_ninf).EQ.(r4_pinf)
170 logical, parameter :: test_inf_r4_mult6 = (r4_ninf*r4_nmax).EQ.(r4_pinf)
172 logical, parameter :: test_inf_r4_div4 = (r4_ninf/0.).EQ.(r4_ninf)
174 logical, parameter :: test_inf_r4_div6 = (0./r4_ninf).EQ.(0.)
176 logical, parameter :: test_inf_r4_div8 = (r4_pinf/r4_nmax).EQ.(r4_ninf)
178 logical, parameter :: test_inf_r4_div10 = (r4_nmax/r4_ninf).EQ.(0.)
184 real(4), parameter :: r4_nan_div2 = r4_ninf/r4_ninf
187 real(4), parameter :: r4_nan_div3 = r4_ninf/r4_pinf
190 real(4), parameter :: r4_nan_div4 = r4_pinf/r4_ninf
199 real(4), parameter :: r4_nan_mult2 = 0._4*r4_ninf
223 logical, parameter :: test_inf_r4_eq2 = r4_ninf.EQ.r4_ninf
224 logical, parameter :: test_inf_r4_eq3 = .NOT.(r4_pinf.EQ.r4_ninf)
228 logical, parameter :: test_inf_r4_ne2 = .NOT.(r4_ninf.NE.r4_ninf)
229 logical, parameter :: test_inf_r4_ne3 = r4_pinf.NE.r4_ninf
233 logical, parameter :: test_inf_r4_gt2 = .NOT.(r4_ninf.GT.r4_ninf)
234 logical, parameter :: test_inf_r4_gt3 = r4_pinf.GT.r4_ninf
238 logical, parameter :: test_inf_r4_lt2 = .NOT.(r4_ninf.LT.r4_ninf)
239 logical, parameter :: test_inf_r4_lt3 = r4_ninf.LT.r4_pinf
243 logical, parameter :: test_inf_r4_ge2 = r4_ninf.GE.r4_ninf
244 logical, parameter :: test_inf_r4_ge3 = .NOT.(r4_ninf.GE.r4_pinf)
248 logical, parameter :: test_inf_r4_le2 = r4_ninf.LE.r4_ninf
249 logical, parameter :: test_inf_r4_le3 = .NOT.(r4_pinf.LE.r4_ninf)