Skip to content

Commit

Permalink
[flang] test fix (#126251)
Browse files Browse the repository at this point in the history
  • Loading branch information
vdonaldson authored Feb 7, 2025
1 parent 2b43543 commit 79e9887
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 3 deletions.
6 changes: 3 additions & 3 deletions flang/test/Evaluate/fold-ieee.f90
Original file line number Diff line number Diff line change
Expand Up @@ -54,15 +54,15 @@ 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)
#if __x86_64__
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
2 changes: 2 additions & 0 deletions flang/test/Evaluate/folding18.f90
Original file line number Diff line number Diff line change
Expand Up @@ -51,13 +51,15 @@ 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) &
.and. ieee_support_standard(1.0_4) &
.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) &
Expand Down

0 comments on commit 79e9887

Please sign in to comment.