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

   1 ! { dg-do run }
   2 ! { dg-options "-ffpe-trap=overflow,invalid" }
   3 program foo
   4
   5    use ieee_arithmetic
   6
   7    implicit none
   8
   9    real x
  10    real(8) y
  11
  12    x = ieee_value(x, ieee_signaling_nan)
  13    if (.not. ieee_is_nan(x)) stop 1
  14    x = ieee_value(x, ieee_quiet_nan)
  15    if (.not. ieee_is_nan(x)) stop 2
  16
  17    x = ieee_value(x, ieee_positive_inf)
  18    if (ieee_is_finite(x)) stop 3
  19    x = ieee_value(x, ieee_negative_inf)
  20    if (ieee_is_finite(x)) stop 4
  21
  22    y = ieee_value(y, ieee_signaling_nan)
  23    if (.not. ieee_is_nan(y)) stop 5
  24    y = ieee_value(y, ieee_quiet_nan)
  25    if (.not. ieee_is_nan(y)) stop 6
  26
  27    y = ieee_value(y, ieee_positive_inf)
  28    if (ieee_is_finite(y)) stop 7
  29    y = ieee_value(y, ieee_negative_inf)
  30    if (ieee_is_finite(y)) stop 8
  31
  32 end program foo