Lines Matching refs:r4_nmax
78 real(4), parameter :: r4_nmax = -3.4028235E38 variable
93 logical, parameter :: test_r4_negation1 = (-r4_pmax).EQ.r4_nmax
94 logical, parameter :: test_r4_negation2 = (-r4_nmax).EQ.r4_pmax
98 logical, parameter :: test_r4_plus2 = (+r4_nmax).EQ.r4_nmax
110 logical, parameter :: test_inf_r4_add10 = (r4_nmax + r4_nmax).eq.(r4_ninf)
112 logical, parameter :: test_inf_r4_sub9 = (r4_pmax - r4_nmax).eq.(r4_pinf)
114 logical, parameter :: test_inf_r4_sub10 = (r4_nmax - r4_pmax).eq.(r4_ninf)
119 logical, parameter :: test_inf_r4_add3 = (r4_pinf + r4_nmax).EQ.(r4_pinf)
122 logical, parameter :: test_inf_r4_add6 = (r4_ninf + r4_nmax).EQ.(r4_ninf)
144 real(4), parameter :: r4_nan_sub5 = r4_nan - r4_nmax
152 real(4), parameter :: r4_nan_add5 = r4_nmax + r4_nan
160 logical, parameter :: test_inf_r4_mult2 = (1.5_4*r4_nmax).eq.(r4_ninf)
162 logical, parameter :: test_inf_r4_div1 = (r4_nmax/(-0.5_4)).eq.(r4_pinf)
170 logical, parameter :: test_inf_r4_mult6 = (r4_ninf*r4_nmax).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.)
178 logical, parameter :: test_inf_r4_div10 = (r4_nmax/r4_ninf).EQ.(0.)