Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/fmt_g.f @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
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 |