gcc/testsuite/gfortran.dg/default_format_denormal_1.f90

   1 ! { dg-do run { xfail alpha*-*-* *-*-darwin[89]* *-*-freebsd* *-*-mingw* } }
   2 ! Test XFAILed on these platforms because the system's printf() lacks
   3 ! proper support for denormals.
   4 !
   5 ! This tests that the default formats for formatted I/O of reals are
   6 ! wide enough and have enough precision, by checking that values can
   7 ! be written and read back.
   8 !
   9 include "default_format_1.inc"
  10
  11 program main
  12   use test_default_format
  13
  14   if (test (tiny(0.0_4), -1) /= 0) call abort
  15   if (test (-tiny(0.0_4), 1) /= 0) call abort
  16   if (test (0.0_4, 0) /= 0) call abort
  17
  18   if (test (tiny(0.0_8), -1) /= 0) call abort
  19   if (test (-tiny(0.0_8), 1) /= 0) call abort
  20   if (test (0.0_8, 0) /= 0) call abort
  21
  22 end program main
  23 !
  24 ! { dg-final { cleanup-modules "test_default_format" } }