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, G, A)"
26 write(buffer
, fmt
) ':',real_4
,':'
28 if (buffer
.ne
.": 4.180000 :") stop 1
31 write(buffer
, fmt
) ':',real_4
,':'
33 if (buffer
.ne
.": 0.1800000E-06:") stop 2
36 write(buffer
, fmt
) ':',real_4
,':'
38 if (buffer
.ne
.": 0.1800000E+08:") stop 3
41 write(buffer
, fmt
) ':',real_8
,':'
43 len
= len_trim(buffer
)
46 #ifdef __GFC_REAL_16__
48 write(buffer
, fmt
) ':',real_16
,':'
50 len
= len_trim(buffer
)