Searched refs:r4_ninf (Results 1 – 2 of 2) sorted by relevance
| /external/llvm-project/flang/test/Evaluate/ |
| D | folding03.f90 | 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)
[all …]
|
| D | folding04.f90 | 18 real(4), parameter :: r4_ninf = -1._4/0._4 variable
30 real(4), parameter :: nan_r4_acos4 = acos(r4_ninf)
|