File tree Expand file tree Collapse file tree 3 files changed +9
-47
lines changed Expand file tree Collapse file tree 3 files changed +9
-47
lines changed Original file line number Diff line number Diff line change @@ -58,7 +58,7 @@ module m
58
58
logical , parameter :: test_sn_all = ieee_support_subnormal()
59
59
logical , parameter :: test_sn_4 = ieee_support_subnormal(1 .)
60
60
logical , parameter :: test_sn_8 = ieee_support_subnormal(1.d0 )
61
- logical , parameter :: test_uc_all = .not. ieee_support_underflow_control()
61
+ ! logical, parameter :: test_uc_all = .not. ieee_support_underflow_control() ! varies by architecture
62
62
logical , parameter :: test_uc_4 = ieee_support_underflow_control(1 .)
63
63
logical , parameter :: test_uc_8 = ieee_support_underflow_control(1.d0 )
64
64
end
Original file line number Diff line number Diff line change @@ -65,11 +65,12 @@ module m
65
65
.and. ieee_support_subnormal(1.0_8 ) &
66
66
.and. ieee_support_subnormal(1.0_10 ) &
67
67
.and. ieee_support_subnormal(1.0_16 )
68
- logical , parameter :: test_ieee_support_underflow_control = .not. ieee_support_underflow_control() &
69
- .and. .not. ieee_support_underflow_control(1.0_2 ) &
70
- .and. ieee_support_underflow_control(1.0_3 ) &
71
- .and. ieee_support_underflow_control(1.0_4 ) &
72
- .and. ieee_support_underflow_control(1.0_8 ) &
73
- .and. .not. ieee_support_underflow_control(1.0_10 ) &
74
- .and. .not. ieee_support_underflow_control(1.0_16 )
68
+ ! varies by architecture
69
+ ! logical, parameter :: test_ieee_support_underflow_control = .not. ieee_support_underflow_control() &
70
+ ! .and. .not. ieee_support_underflow_control(1.0_2) &
71
+ ! .and. ieee_support_underflow_control(1.0_3) &
72
+ ! .and. ieee_support_underflow_control(1.0_4) &
73
+ ! .and. ieee_support_underflow_control(1.0_8) &
74
+ ! .and. .not. ieee_support_underflow_control(1.0_10) &
75
+ ! .and. .not. ieee_support_underflow_control(1.0_16)
75
76
end module
Load Diff This file was deleted.
You can’t perform that action at this time.
0 commit comments