| ! { dg-do run } |
| |
| use :: ieee_arithmetic |
| implicit none |
| |
| logical mode |
| |
| ! Test IEEE_SET_UNDERFLOW_MODE, IEEE_GET_UNDERFLOW_MODE, |
| ! and IEEE_SUPPORT_UNDERFLOW_CONTROL |
| ! |
| ! We don't have any targets where this is supported yet, so |
| ! we just check these subroutines are present. |
| |
| if (ieee_support_underflow_control() & |
| .or. ieee_support_underflow_control(0.)) then |
| |
| call ieee_get_underflow_mode(mode) |
| call ieee_set_underflow_mode(.false.) |
| call ieee_set_underflow_mode(.true.) |
| call ieee_set_underflow_mode(mode) |
| |
| end if |
| |
| if (ieee_support_underflow_control() & |
| .or. ieee_support_underflow_control(0.d0)) then |
| |
| call ieee_get_underflow_mode(mode) |
| call ieee_set_underflow_mode(.false.) |
| call ieee_set_underflow_mode(.true.) |
| call ieee_set_underflow_mode(mode) |
| |
| end if |
| |
| end |