gcc/testsuite/gfortran.dg/default_format_1.f90

   1 ! { dg-do run { xfail spu-*-*  } }
   2 ! Test XFAILed on Darwin 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 (1.0_4, 0) /= 0) call abort
  15   if (test (tiny(0.0_4), 1) /= 0) call abort
  16   if (test (-tiny(0.0_4), -1) /= 0) call abort
  17   if (test (huge(0.0_4), -1) /= 0) call abort
  18   if (test (-huge(0.0_4), 1) /= 0) call abort
  19
  20   if (test (1.0_8, 0) /= 0) call abort
  21   if (test (tiny(0.0_8), 1) /= 0) call abort
  22   if (test (-tiny(0.0_8), -1) /= 0) call abort
  23   if (test (huge(0.0_8), -1) /= 0) call abort
  24   if (test (-huge(0.0_8), 1) /= 0) call abort
  25 end program main
  26 !
  27 ! { dg-final { cleanup-modules "test_default_format" } }