| ! { dg-do run } |
| |
| use, intrinsic :: ieee_arithmetic |
| implicit none |
| |
| real :: sx1, sx2, sx3 |
| double precision :: dx1, dx2, dx3 |
| |
| ! IEEE_AWAY was added in Fortran 2018 and not supported by any target |
| ! at the moment. Just check we can query for its support. |
| |
| ! We should support at least C float and C double types |
| if (ieee_support_rounding(ieee_away) & |
| .or. ieee_support_rounding(ieee_away, 0.) & |
| .or. ieee_support_rounding(ieee_away, 0.d0)) then |
| print *, "If a target / libc now supports this, we need to add a proper check!" |
| stop 1 |
| end if |
| |
| end |