gcc/testsuite/gfortran.dg/default_format_denormal_1.f90

   1 ! { dg-do run { xfail *-*-darwin[89]* *-*-cygwin* spu-*-* } }
   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 ! { dg-add-options ieee }
  10
  11 include "default_format_1.inc"
  12
  13 program main
  14   use test_default_format
  15
  16   if (test (tiny(0.0_4), -1) /= 0) call abort
  17   if (test (-tiny(0.0_4), 1) /= 0) call abort
  18   if (test (0.0_4, 0) /= 0) call abort
  19
  20   if (test (tiny(0.0_8), -1) /= 0) call abort
  21   if (test (-tiny(0.0_8), 1) /= 0) call abort
  22   if (test (0.0_8, 0) /= 0) call abort
  23
  24 end program main
  25 !
  26 ! { dg-final { cleanup-modules "test_default_format" } }