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
5858 logical , parameter :: test_sn_all = ieee_support_subnormal()
5959 logical , parameter :: test_sn_4 = ieee_support_subnormal(1 .)
6060 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
6262 logical , parameter :: test_uc_4 = ieee_support_underflow_control(1 .)
6363 logical , parameter :: test_uc_8 = ieee_support_underflow_control(1.d0 )
6464end
Original file line number Diff line number Diff line change @@ -65,11 +65,12 @@ module m
6565 .and. ieee_support_subnormal(1.0_8 ) &
6666 .and. ieee_support_subnormal(1.0_10 ) &
6767 .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)
7576end module
Load Diff This file was deleted.
You can’t perform that action at this time.
0 commit comments