Searched refs:r4_pinf (Results 1 – 2 of 2) sorted by relevance
| /external/llvm-project/flang/test/Evaluate/ |
| D | folding03.f90 | 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)
[all …]
|
| D | folding04.f90 | 16 real(4), parameter :: r4_pinf = 1._4/0._4 variable
33 real(4), parameter :: nan_r4_acos5 = acos(r4_pinf)
37 logical, parameter :: test_exp_overflow = exp(256._4).EQ.r4_pinf
|