@@ -14,7 +14,9 @@ module m1
14
14
logical , parameter :: test_6 = nearest (- inf, - 1 .) == - inf
15
15
logical , parameter :: test_7 = nearest (1.9999999 , 1 .) == 2 .
16
16
logical , parameter :: test_8 = nearest (2 ., - 1 .) == 1.9999999
17
+ #if __x86_64__
17
18
logical , parameter :: test_9 = nearest (1.9999999999999999999_10 , 1 .) == 2._10
19
+ #endif
18
20
logical , parameter :: test_10 = nearest (- 1 ., 1 .) == - .99999994
19
21
logical , parameter :: test_11 = nearest (- 1 ., - 2 .) == - 1.0000001
20
22
real , parameter :: negZero = sign (0 ., - 1 .)
@@ -42,7 +44,9 @@ module m2
42
44
logical , parameter :: test_8 = ieee_next_after(- inf, - 1 .) == - inf
43
45
logical , parameter :: test_9 = ieee_next_after(1.9999999 , 3 .) == 2 .
44
46
logical , parameter :: test_10 = ieee_next_after(2 ., 1 .) == 1.9999999
47
+ #if __x86_64__
45
48
logical , parameter :: test_11 = ieee_next_after(1.9999999999999999999_10 , 3 .) == 2._10
49
+ #endif
46
50
logical , parameter :: test_12 = ieee_next_after(1 ., 1 .) == 1 .
47
51
! WARN: warning: invalid argument on division
48
52
real , parameter :: nan = 0 . / 0 .
0 commit comments