Lines Matching refs:r4_pinf

83   real(4), parameter :: r4_pinf = 1._4/0._4
89   logical, parameter :: test_r4_pinf_parentheses = ((r4_pinf)).EQ.r4_pinf
95   logical, parameter :: test_r4_negation3 = (-r4_pinf).EQ.r4_ninf
96   logical, parameter :: test_r4_negation4 = (-r4_ninf).EQ.r4_pinf
99   logical, parameter :: test_r4_plus3 = (+r4_pinf).EQ.r4_pinf
108   logical, parameter :: test_inf_r4_add9 = (r4_pmax + r4_pmax).eq.(r4_pinf)
112   logical, parameter :: test_inf_r4_sub9 = (r4_pmax - r4_nmax).eq.(r4_pinf)
117   logical, parameter :: test_inf_r4_add1 = (r4_pinf + r4_pinf).EQ.(r4_pinf)
119   logical, parameter :: test_inf_r4_add3 = (r4_pinf + r4_nmax).EQ.(r4_pinf)
120   logical, parameter :: test_inf_r4_add4 = (r4_pinf + r4_pmax).EQ.(r4_pinf)
124   logical, parameter :: test_inf_r4_add8 = (r4_pinf + 0._4).EQ.(r4_pinf)
127   real(4), parameter :: r4_nan_sub1 = r4_pinf - r4_pinf
133   real(4), parameter :: r4_nan_add1 = r4_ninf + r4_pinf
136   real(4), parameter :: r4_nan_add2 = r4_pinf + r4_ninf
158   logical, parameter :: test_inf_r4_mult1 = (1.5_4*r4_pmax).eq.(r4_pinf)
162   logical, parameter :: test_inf_r4_div1 = (r4_nmax/(-0.5_4)).eq.(r4_pinf)
167   logical, parameter :: test_inf_r4_mult3 = (r4_pinf*r4_pinf).EQ.(r4_pinf)
168   logical, parameter :: test_inf_r4_mult4 = (r4_ninf*r4_ninf).EQ.(r4_pinf)
169   logical, parameter :: test_inf_r4_mult5 = (r4_pinf*0.1_4).EQ.(r4_pinf)
170   logical, parameter :: test_inf_r4_mult6 = (r4_ninf*r4_nmax).EQ.(r4_pinf)
171   logical, parameter :: test_inf_r4_div3 = (r4_pinf/0.).EQ.(r4_pinf)
173   logical, parameter :: test_inf_r4_div5 = (0./r4_pinf).EQ.(0.)
175   logical, parameter :: test_inf_r4_div7 = (r4_pinf/r4_pmax).EQ.(r4_pinf)
176   logical, parameter :: test_inf_r4_div8 = (r4_pinf/r4_nmax).EQ.(r4_ninf)
177   logical, parameter :: test_inf_r4_div9 = (r4_nmax/r4_pinf).EQ.(0.)
187   real(4), parameter :: r4_nan_div3 = r4_ninf/r4_pinf
190   real(4), parameter :: r4_nan_div4 = r4_pinf/r4_ninf
193   real(4), parameter :: r4_nan_div5 = r4_pinf/r4_pinf
196   real(4), parameter :: r4_nan_mult1 = r4_pinf*0._4
222   logical, parameter :: test_inf_r4_eq1 = r4_pinf.EQ.r4_pinf
224   logical, parameter :: test_inf_r4_eq3 = .NOT.(r4_pinf.EQ.r4_ninf)
225   logical, parameter :: test_inf_r4_eq4 = .NOT.(r4_pinf.EQ.r4_pmax)
227   logical, parameter :: test_inf_r4_ne1 = .NOT.(r4_pinf.NE.r4_pinf)
229   logical, parameter :: test_inf_r4_ne3 = r4_pinf.NE.r4_ninf
230   logical, parameter :: test_inf_r4_ne4 = r4_pinf.NE.r4_pmax
232   logical, parameter :: test_inf_r4_gt1 = .NOT.(r4_pinf.GT.r4_pinf)
234   logical, parameter :: test_inf_r4_gt3 = r4_pinf.GT.r4_ninf
235   logical, parameter :: test_inf_r4_gt4 = r4_pinf.GT.r4_pmax
237   logical, parameter :: test_inf_r4_lt1 = .NOT.(r4_pinf.LT.r4_pinf)
239   logical, parameter :: test_inf_r4_lt3 = r4_ninf.LT.r4_pinf
240   logical, parameter :: test_inf_r4_lt4 = r4_pmax.LT.r4_pinf
242   logical, parameter :: test_inf_r4_ge1 = r4_pinf.GE.r4_pinf
244   logical, parameter :: test_inf_r4_ge3 = .NOT.(r4_ninf.GE.r4_pinf)
245   logical, parameter :: test_inf_r4_ge4 = .NOT.(r4_pmax.GE.r4_pinf)
247   logical, parameter :: test_inf_r4_le1 = r4_pinf.LE.r4_pinf
249   logical, parameter :: test_inf_r4_le3 = .NOT.(r4_pinf.LE.r4_ninf)
250   logical, parameter :: test_inf_r4_le4 = .NOT.(r4_pinf.LE.r4_pmax)