Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/fmt_g.f @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
3 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> 3 ! Test case prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4 PROGRAM FOO 4 PROGRAM FOO
5 character(len=50) :: buffer 5 character(len=50) :: buffer
6 6
7 WRITE(buffer,"(G0.5,'<')") -10000. 7 WRITE(buffer,"(G0.5,'<')") -10000.
8 if (buffer.ne."-10000.<") call abort 8 if (buffer.ne."-10000.<") STOP 1
9 WRITE(buffer,"(G1.5E5,'<')") -10000. 9 WRITE(buffer,"(G1.5E5,'<')") -10000.
10 if (buffer.ne."*<") call abort 10 if (buffer.ne."*<") STOP 2
11 WRITE(buffer,"(G2.5E5,'<')") -10000. 11 WRITE(buffer,"(G2.5E5,'<')") -10000.
12 if (buffer.ne."**<") call abort 12 if (buffer.ne."**<") STOP 3
13 WRITE(buffer,"(G3.5E5,'<')") -10000. 13 WRITE(buffer,"(G3.5E5,'<')") -10000.
14 if (buffer.ne."***<") call abort 14 if (buffer.ne."***<") STOP 4
15 WRITE(buffer,"(G4.5E5,'<')") -10000. 15 WRITE(buffer,"(G4.5E5,'<')") -10000.
16 if (buffer.ne."****<") call abort 16 if (buffer.ne."****<") STOP 5
17 WRITE(buffer,"(G5.5E5,'<')") -10000. 17 WRITE(buffer,"(G5.5E5,'<')") -10000.
18 if (buffer.ne."*****<") call abort 18 if (buffer.ne."*****<") STOP 6
19 WRITE(buffer,"(G6.5E5,'<')") -10000. 19 WRITE(buffer,"(G6.5E5,'<')") -10000.
20 if (buffer.ne."******<") call abort 20 if (buffer.ne."******<") STOP 7
21 WRITE(buffer,"(G7.5E5,'<')") -10000. 21 WRITE(buffer,"(G7.5E5,'<')") -10000.
22 if (buffer.ne."*******<") call abort 22 if (buffer.ne."*******<") STOP 8
23 WRITE(buffer,"(G8.5E5,'<')") -10000. 23 WRITE(buffer,"(G8.5E5,'<')") -10000.
24 if (buffer.ne."********<") call abort 24 if (buffer.ne."********<") STOP 9
25 WRITE(buffer,"(G9.5E5,'<')") -10000. 25 WRITE(buffer,"(G9.5E5,'<')") -10000.
26 if (buffer.ne."*********<") call abort 26 if (buffer.ne."*********<") STOP 10
27 WRITE(buffer,"(G10.5E5,'<')") -10000. 27 WRITE(buffer,"(G10.5E5,'<')") -10000.
28 if (buffer.ne."**********<") call abort 28 if (buffer.ne."**********<") STOP 11
29 WRITE(buffer,"(G11.5E5,'<')") -10000. 29 WRITE(buffer,"(G11.5E5,'<')") -10000.
30 if (buffer.ne."***********<") call abort 30 if (buffer.ne."***********<") STOP 12
31 WRITE(buffer,"(G12.5E5,'<')") -10000. 31 WRITE(buffer,"(G12.5E5,'<')") -10000.
32 if (buffer.ne."************<") call abort 32 if (buffer.ne."************<") STOP 13
33 WRITE(buffer,"(G13.5E5,'<')") -10000. 33 WRITE(buffer,"(G13.5E5,'<')") -10000.
34 if (buffer.ne."*************<") call abort 34 if (buffer.ne."*************<") STOP 14
35 WRITE(buffer,"(G14.5E5,'<')") -10000. 35 WRITE(buffer,"(G14.5E5,'<')") -10000.
36 if (buffer.ne."-10000. <") call abort 36 if (buffer.ne."-10000. <") STOP 15
37 WRITE(buffer,"(G15.5E5,'<')") -10000. 37 WRITE(buffer,"(G15.5E5,'<')") -10000.
38 if (buffer.ne." -10000. <") call abort 38 if (buffer.ne." -10000. <") STOP 16
39 WRITE(buffer,"(G16.5E5,'<')") -10000. 39 WRITE(buffer,"(G16.5E5,'<')") -10000.
40 if (buffer.ne." -10000. <") call abort 40 if (buffer.ne." -10000. <") STOP 17
41 41
42 STOP 42 STOP
43 END 43 END