diff --git a/flang/test/Evaluate/fold-ieee.f90 b/flang/test/Evaluate/fold-ieee.f90 index 99f8526fd23db..a393fcc6b4297 100644 --- a/flang/test/Evaluate/fold-ieee.f90 +++ b/flang/test/Evaluate/fold-ieee.f90 @@ -54,9 +54,6 @@ module m logical, parameter :: test_sq_all = ieee_support_sqrt() logical, parameter :: test_sq_4 = ieee_support_sqrt(1.) logical, parameter :: test_sq_8 = ieee_support_sqrt(1.d0) - logical, parameter :: test_std_all = ieee_support_standard() - logical, parameter :: test_std_4 = ieee_support_standard(1.) - logical, parameter :: test_std_8 = ieee_support_standard(1.d0) logical, parameter :: test_sn_all = ieee_support_subnormal() logical, parameter :: test_sn_4 = ieee_support_subnormal(1.) logical, parameter :: test_sn_8 = ieee_support_subnormal(1.d0) @@ -64,5 +61,8 @@ module m logical, parameter :: test_uc_all = .not. ieee_support_underflow_control() logical, parameter :: test_uc_4 = ieee_support_underflow_control(1.) logical, parameter :: test_uc_8 = ieee_support_underflow_control(1.d0) + logical, parameter :: test_std_all = ieee_support_standard() + logical, parameter :: test_std_4 = ieee_support_standard(1.) + logical, parameter :: test_std_8 = ieee_support_standard(1.d0) #endif end diff --git a/flang/test/Evaluate/folding18.f90 b/flang/test/Evaluate/folding18.f90 index 52aeb6a3532d0..a27eeabefae55 100644 --- a/flang/test/Evaluate/folding18.f90 +++ b/flang/test/Evaluate/folding18.f90 @@ -51,6 +51,7 @@ module m .and. ieee_support_sqrt(1.0_8) & .and. ieee_support_sqrt(1.0_10) & .and. ieee_support_sqrt(1.0_16) +#if __x86_64__ logical, parameter :: test_ieee_support_standard = ieee_support_standard() & .and. ieee_support_standard(1.0_2) & .and. ieee_support_standard(1.0_3) & @@ -58,6 +59,7 @@ module m .and. ieee_support_standard(1.0_8) & .and. ieee_support_standard(1.0_10) & .and. ieee_support_standard(1.0_16) +#endif logical, parameter :: test_ieee_support_subnormal = ieee_support_subnormal() & .and. ieee_support_subnormal(1.0_2) & .and. ieee_support_subnormal(1.0_3) &