@@ -92,20 +92,23 @@ module m3
92
92
logical , parameter :: test_14 = .not. (x14 == x14)
93
93
end module
94
94
95
- #if 0
96
- ! Currently failing on ppc64le and aarch64, debugging...
97
95
module m4
96
+ use ieee_arithmetic
97
+ real (2 ), parameter :: neg_inf_2 = real (z' fc00' ,2 )
98
+ real (2 ), parameter :: neg_huge_2 = real (z' fbff' ,2 )
99
+ real (3 ), parameter :: neg_huge_3 = real (z' ff7f' ,3 )
100
+ logical , parameter :: test_1 = ieee_next_after(neg_inf_2, neg_huge_3) == neg_huge_2
101
+ end module
102
+
103
+ #if __x86_64__
104
+ module m5
98
105
use ieee_arithmetic
99
106
real (8 ), parameter :: neg_inf_8 = real (z' fff0000000000000' ,8 )
100
107
real (8 ), parameter :: neg_huge_8 = real (z' ffefffffffffffff' ,8 )
101
108
real (10 ), parameter :: neg_one_10 = real (z' bfff8000000000000000' ,10 )
102
109
real (10 ), parameter :: neg_inf_10 = real (z' ffff8000000000000000' ,10 )
103
- real(2), parameter :: neg_inf_2 = real(z'fc00',2)
104
- real(2), parameter :: neg_huge_2 = real(z'fbff',2)
105
- real(3), parameter :: neg_huge_3 = real(z'ff7f',3)
106
- logical, parameter :: test_1 = ieee_next_after(neg_inf_8,neg_one_10) == neg_huge_8
107
- logical, parameter :: test_2 = ieee_next_after(neg_inf_2, neg_huge_3) == neg_huge_2
108
- logical, parameter :: test_3 = ieee_next_after(neg_one_10, neg_inf_10) == &
110
+ logical , parameter :: test_1 = ieee_next_after(neg_inf_8, neg_one_10) == neg_huge_8
111
+ logical , parameter :: test_2 = ieee_next_after(neg_one_10, neg_inf_10) == &
109
112
real (z' bfff8000000000000001' , 10 )
110
113
end module
111
114
#endif
0 commit comments