1! { dg-do run { xfail spu-*-* powerpc-ibm-aix* } } 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! 9include "default_format_1.inc" 10 11program 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 25end program main 26! 27