gcc/testsuite/gfortran.dg/ieee/ieee_5.f90

   1 ! { dg-do run }
   2
   3   use :: ieee_arithmetic
   4   implicit none
   5
   6   logical mode
   7
   8   ! Test IEEE_SET_UNDERFLOW_MODE, IEEE_GET_UNDERFLOW_MODE,
   9   ! and IEEE_SUPPORT_UNDERFLOW_CONTROL
  10   !
  11   ! We don't have any targets where this is supported yet, so
  12   ! we just check these subroutines are present.
  13
  14   if (ieee_support_underflow_control() &
  15       .or. ieee_support_underflow_control(0.)) then
  16
  17     call ieee_get_underflow_mode(mode)
  18     call ieee_set_underflow_mode(.false.)
  19     call ieee_set_underflow_mode(.true.)
  20     call ieee_set_underflow_mode(mode)
  21
  22   end if
  23
  24   if (ieee_support_underflow_control() &
  25       .or. ieee_support_underflow_control(0.d0)) then
  26
  27     call ieee_get_underflow_mode(mode)
  28     call ieee_set_underflow_mode(.false.)
  29     call ieee_set_underflow_mode(.true.)
  30     call ieee_set_underflow_mode(mode)
  31
  32   end if
  33
  34 end