Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/fmt_f0_1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! PR39304 write of 0.0 with F0.3 gives **
kono
parents:
diff changeset
3 ! PR47567 Small absolute values.
kono
parents:
diff changeset
4 ! Test case developed from case provided by reporter.
kono
parents:
diff changeset
5 REAL :: x
kono
parents:
diff changeset
6 CHARACTER(80) :: str
kono
parents:
diff changeset
7 x = 0.0
kono
parents:
diff changeset
8 write (str,'(f0.0)') x
kono
parents:
diff changeset
9 if (str.ne."0.") call abort
kono
parents:
diff changeset
10 write (str,'(f0.1)') x
kono
parents:
diff changeset
11 if (str.ne.".0") call abort
kono
parents:
diff changeset
12 write (str,'(f0.2)') x
kono
parents:
diff changeset
13 if (str.ne.".00") call abort
kono
parents:
diff changeset
14 write (str,'(f0.3)') x
kono
parents:
diff changeset
15 if (str.ne.".000") call abort
kono
parents:
diff changeset
16 write (str,'(f0.4)') x
kono
parents:
diff changeset
17 if (str.ne.".0000") call abort
kono
parents:
diff changeset
18 write (str,'(F0.0)') 0.0
kono
parents:
diff changeset
19 if (str.ne."0.") call abort
kono
parents:
diff changeset
20 write (str,'(F0.0)') 0.001
kono
parents:
diff changeset
21 if (str.ne."0.") call abort
kono
parents:
diff changeset
22 write (str,'(F0.0)') 0.01
kono
parents:
diff changeset
23 if (str.ne."0.") call abort
kono
parents:
diff changeset
24 write (str,'(F0.0)') 0.1
kono
parents:
diff changeset
25 if (str.ne."0.") call abort
kono
parents:
diff changeset
26 write (str,'(F1.0)') -0.0
kono
parents:
diff changeset
27 if (str.ne."*") call abort
kono
parents:
diff changeset
28 write (str,'(F1.0)') 0.001
kono
parents:
diff changeset
29 if (str.ne."*") call abort
kono
parents:
diff changeset
30 write (str,'(F1.0)') 0.01
kono
parents:
diff changeset
31 if (str.ne."*") call abort
kono
parents:
diff changeset
32 write (str,'(F1.0)') 0.1
kono
parents:
diff changeset
33 if (str.ne."*") call abort
kono
parents:
diff changeset
34 write (str,'(F2.0)') -0.001
kono
parents:
diff changeset
35 if (str.ne."**") call abort
kono
parents:
diff changeset
36 write (str,'(F2.0)') -0.01
kono
parents:
diff changeset
37 if (str.ne."**") call abort
kono
parents:
diff changeset
38 write (str,'(F2.0)') -0.1
kono
parents:
diff changeset
39 if (str.ne."**") call abort
kono
parents:
diff changeset
40 write (str,'(F0.2)') 0.0
kono
parents:
diff changeset
41 if (str.ne.".00") call abort
kono
parents:
diff changeset
42 write (str,'(F0.0)') -0.0
kono
parents:
diff changeset
43 if (str.ne."-0.") call abort
kono
parents:
diff changeset
44 write (str,'(F0.1)') -0.0
kono
parents:
diff changeset
45 if (str.ne."-.0") call abort
kono
parents:
diff changeset
46 write (str,'(F0.2)') -0.0
kono
parents:
diff changeset
47 if (str.ne."-.00") call abort
kono
parents:
diff changeset
48 write (str,'(F0.3)') -0.0
kono
parents:
diff changeset
49 if (str.ne."-.000") call abort
kono
parents:
diff changeset
50 write (str,'(F3.0)') -0.0
kono
parents:
diff changeset
51 if (str.ne."-0.") call abort
kono
parents:
diff changeset
52 write (str,'(F2.0)') -0.0
kono
parents:
diff changeset
53 if (str.ne."**") call abort
kono
parents:
diff changeset
54 write (str,'(F1.0)') -0.0
kono
parents:
diff changeset
55 if (str.ne."*") call abort
kono
parents:
diff changeset
56 write (str,'(F0.1)') -0.0
kono
parents:
diff changeset
57 if (str.ne."-.0") call abort
kono
parents:
diff changeset
58 write (str,'(F3.1)') -0.0
kono
parents:
diff changeset
59 if (str.ne."-.0") call abort
kono
parents:
diff changeset
60 write (str,'(F2.1)') -0.0
kono
parents:
diff changeset
61 if (str.ne."**") call abort
kono
parents:
diff changeset
62 write (str,'(F1.1)') -0.0
kono
parents:
diff changeset
63 if (str.ne."*") call abort
kono
parents:
diff changeset
64 END