2 ! PR47285 G
format outputs wrong number of characters
.
3 ! Test case prepared by Jerry DeLisle
<jvdelisle@gcc
.gnu
.org
>
5 character(len
=50) :: buffer
7 WRITE(buffer
,"(G0.5,'<')") -10000.
8 if (buffer
.ne
."-10000.<") STOP 1
9 WRITE(buffer
,"(G1.5E5,'<')") -10000.
10 if (buffer
.ne
."*<") STOP 2
11 WRITE(buffer
,"(G2.5E5,'<')") -10000.
12 if (buffer
.ne
."**<") STOP 3
13 WRITE(buffer
,"(G3.5E5,'<')") -10000.
14 if (buffer
.ne
."***<") STOP 4
15 WRITE(buffer
,"(G4.5E5,'<')") -10000.
16 if (buffer
.ne
."****<") STOP 5
17 WRITE(buffer
,"(G5.5E5,'<')") -10000.
18 if (buffer
.ne
."*****<") STOP 6
19 WRITE(buffer
,"(G6.5E5,'<')") -10000.
20 if (buffer
.ne
."******<") STOP 7
21 WRITE(buffer
,"(G7.5E5,'<')") -10000.
22 if (buffer
.ne
."*******<") STOP 8
23 WRITE(buffer
,"(G8.5E5,'<')") -10000.
24 if (buffer
.ne
."********<") STOP 9
25 WRITE(buffer
,"(G9.5E5,'<')") -10000.
26 if (buffer
.ne
."*********<") STOP 10
27 WRITE(buffer
,"(G10.5E5,'<')") -10000.
28 if (buffer
.ne
."**********<") STOP 11
29 WRITE(buffer
,"(G11.5E5,'<')") -10000.
30 if (buffer
.ne
."***********<") STOP 12
31 WRITE(buffer
,"(G12.5E5,'<')") -10000.
32 if (buffer
.ne
."************<") STOP 13
33 WRITE(buffer
,"(G13.5E5,'<')") -10000.
34 if (buffer
.ne
."*************<") STOP 14
35 WRITE(buffer
,"(G14.5E5,'<')") -10000.
36 if (buffer
.ne
."-10000. <") STOP 15
37 WRITE(buffer
,"(G15.5E5,'<')") -10000.
38 if (buffer
.ne
." -10000. <") STOP 16
39 WRITE(buffer
,"(G16.5E5,'<')") -10000.
40 if (buffer
.ne
." -10000. <") STOP 17