2 ! { dg-options "-pedantic" }
7 write(buffer
,fmt
) ">", 3.0, "<"
8 if (buffer
.ne
.">3.00<") stop 1
10 write(buffer
,fmt
) ">", 0.30, "<"
11 if (buffer
.ne
.">0.30<") stop 2
12 fmt
= "(1a1,d0.2,1a1)"
13 write(buffer
,fmt
) ">", 3.0, "<"
14 if (buffer
.ne
.">0.30D+1<") stop 3
15 fmt
= "(1a1,e0.2,1a1)"
16 write(buffer
,fmt
) ">", 3.0, "<"
17 if (buffer
.ne
.">0.30E+1<") stop 4
18 fmt
= "(1a1,en0.2,1a1)"
19 write(buffer
,fmt
) ">", 3.0, "<"
20 if (buffer
.ne
.">3.00E+0<") stop 5
21 fmt
= "(1a1,es0.2,1a1)"
22 write(buffer
,fmt
) ">", 3.0, "<"
23 if (buffer
.ne
.">3.00E+0<") stop 6