1! { dg-do run { xfail *-*-darwin[89]* *-*-cygwin* spu-*-* powerpc-ibm-aix* } } 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 11include "default_format_1.inc" 12 13program 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 24end program main 25! 26