1! { dg-require-effective-target fortran_large_real } 2! { dg-do run { xfail powerpc*-apple-darwin* powerpc*-*-linux* } } 3! Test XFAILed on these platforms 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! 10include "default_format_2.inc" 11 12program main 13 use test_default_format 14 15 if (test (1.0_kl, 0) /= 0) call abort 16 if (test (0.0_kl, 0) /= 0) call abort 17 if (test (tiny(0.0_kl), 1) /= 0) call abort 18 if (test (-tiny(0.0_kl), -1) /= 0) call abort 19 if (test (huge(0.0_kl), -1) /= 0) call abort 20 if (test (-huge(0.0_kl), 1) /= 0) call abort 21end program main 22! 23