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
5454 logical , parameter :: test_sq_all = ieee_support_sqrt()
5555 logical , parameter :: test_sq_4 = ieee_support_sqrt(1 .)
5656 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 )
6057 logical , parameter :: test_sn_all = ieee_support_subnormal()
6158 logical , parameter :: test_sn_4 = ieee_support_subnormal(1 .)
6259 logical , parameter :: test_sn_8 = ieee_support_subnormal(1.d0 )
6360#if __x86_64__
6461 logical , parameter :: test_uc_all = .not. ieee_support_underflow_control()
6562 logical , parameter :: test_uc_4 = ieee_support_underflow_control(1 .)
6663 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 )
6767#endif
6868end
Original file line number Diff line number Diff line change @@ -51,13 +51,15 @@ module m
5151 .and. ieee_support_sqrt(1.0_8 ) &
5252 .and. ieee_support_sqrt(1.0_10 ) &
5353 .and. ieee_support_sqrt(1.0_16 )
54+ #if __x86_64__
5455 logical , parameter :: test_ieee_support_standard = ieee_support_standard() &
5556 .and. ieee_support_standard(1.0_2 ) &
5657 .and. ieee_support_standard(1.0_3 ) &
5758 .and. ieee_support_standard(1.0_4 ) &
5859 .and. ieee_support_standard(1.0_8 ) &
5960 .and. ieee_support_standard(1.0_10 ) &
6061 .and. ieee_support_standard(1.0_16 )
62+ #endif
6163 logical , parameter :: test_ieee_support_subnormal = ieee_support_subnormal() &
6264 .and. ieee_support_subnormal(1.0_2 ) &
6365 .and. ieee_support_subnormal(1.0_3 ) &
You can’t perform that action at this time.
0 commit comments