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