File tree Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -54,15 +54,15 @@ module m
54
54
logical , parameter :: test_sq_all = ieee_support_sqrt()
55
55
logical , parameter :: test_sq_4 = ieee_support_sqrt(1 .)
56
56
logical , parameter :: test_sq_8 = ieee_support_sqrt(1.d0 )
57
- logical , parameter :: test_std_all = ieee_support_standard()
58
- logical , parameter :: test_std_4 = ieee_support_standard(1 .)
59
- logical , parameter :: test_std_8 = ieee_support_standard(1.d0 )
60
57
logical , parameter :: test_sn_all = ieee_support_subnormal()
61
58
logical , parameter :: test_sn_4 = ieee_support_subnormal(1 .)
62
59
logical , parameter :: test_sn_8 = ieee_support_subnormal(1.d0 )
63
60
#if __x86_64__
64
61
logical , parameter :: test_uc_all = .not. ieee_support_underflow_control()
65
62
logical , parameter :: test_uc_4 = ieee_support_underflow_control(1 .)
66
63
logical , parameter :: test_uc_8 = ieee_support_underflow_control(1.d0 )
64
+ logical , parameter :: test_std_all = ieee_support_standard()
65
+ logical , parameter :: test_std_4 = ieee_support_standard(1 .)
66
+ logical , parameter :: test_std_8 = ieee_support_standard(1.d0 )
67
67
#endif
68
68
end
Original file line number Diff line number Diff line change @@ -51,13 +51,15 @@ module m
51
51
.and. ieee_support_sqrt(1.0_8 ) &
52
52
.and. ieee_support_sqrt(1.0_10 ) &
53
53
.and. ieee_support_sqrt(1.0_16 )
54
+ #if __x86_64__
54
55
logical , parameter :: test_ieee_support_standard = ieee_support_standard() &
55
56
.and. ieee_support_standard(1.0_2 ) &
56
57
.and. ieee_support_standard(1.0_3 ) &
57
58
.and. ieee_support_standard(1.0_4 ) &
58
59
.and. ieee_support_standard(1.0_8 ) &
59
60
.and. ieee_support_standard(1.0_10 ) &
60
61
.and. ieee_support_standard(1.0_16 )
62
+ #endif
61
63
logical , parameter :: test_ieee_support_subnormal = ieee_support_subnormal() &
62
64
.and. ieee_support_subnormal(1.0_2 ) &
63
65
.and. ieee_support_subnormal(1.0_3 ) &
You can’t perform that action at this time.
0 commit comments