1! { dg-require-effective-target fortran_large_real } 2! { dg-do run { xfail powerpc*-apple-darwin* } } 3! Test XFAILed on this platform because the system's printf() lacks 4! proper support for denormalized long doubles. See PR24685 5! 6! This tests that the default formats for formatted I/O of reals are 7! wide enough and have enough precision, by checking that values can 8! be written and read back. 9! 10! { dg-add-options ieee } 11 12include "default_format_2.inc" 13 14program main 15 use test_default_format 16 17 if (test (tiny(0.0_kl), -1) /= 0) call abort 18 if (test (-tiny(0.0_kl), 1) /= 0) call abort 19end program main 20! 21