2 ! { dg-options "-cpp -fdec-format-defaults" }
4 ! Test case for the default field widths enabled by the -fdec-format-defaults flag.
6 ! This feature is not part of any Fortran standard, but it is supported by the
7 ! Oracle Fortran compiler and others.
9 ! Test case added by Mark Eggleston <mark.eggleston@codethink.com> to check
10 ! use of -fdec-format-defaults
15 character(50) :: buffer
19 #ifdef __GFC_REAL_16__
23 character(*), parameter :: fmt
= "(A, F, A)"
26 write(buffer
, fmt
) ':',real_4
,':'
28 if (buffer
.ne
.": 4.1799998:") stop 1
31 write(buffer
, fmt
) ':',real_4
,':'
33 if (buffer
.ne
.": 0.0000002:") stop 2
36 write(buffer
, fmt
) ':',real_8
,':'
38 len
= len_trim(buffer
)
41 #ifdef __GFC_REAL_16__
43 write(buffer
, fmt
) ':',real_16
,':'
45 len
= len_trim(buffer
)