Mercurial > hg > CbC > CbC_gcc

comparison 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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do run }
2 ! PR39304 write of 0.0 with F0.3 gives **
3 ! PR47567 Small absolute values.
4 ! Test case developed from case provided by reporter.
5 REAL :: x
6 CHARACTER(80) :: str
7 x = 0.0
8 write (str,'(f0.0)') x
9 if (str.ne."0.") call abort
10 write (str,'(f0.1)') x
11 if (str.ne.".0") call abort
12 write (str,'(f0.2)') x
13 if (str.ne.".00") call abort
14 write (str,'(f0.3)') x
15 if (str.ne.".000") call abort
16 write (str,'(f0.4)') x
17 if (str.ne.".0000") call abort
18 write (str,'(F0.0)') 0.0
19 if (str.ne."0.") call abort
20 write (str,'(F0.0)') 0.001
21 if (str.ne."0.") call abort
22 write (str,'(F0.0)') 0.01
23 if (str.ne."0.") call abort
24 write (str,'(F0.0)') 0.1
25 if (str.ne."0.") call abort
26 write (str,'(F1.0)') -0.0
27 if (str.ne."*") call abort
28 write (str,'(F1.0)') 0.001
29 if (str.ne."*") call abort
30 write (str,'(F1.0)') 0.01
31 if (str.ne."*") call abort
32 write (str,'(F1.0)') 0.1
33 if (str.ne."*") call abort
34 write (str,'(F2.0)') -0.001
35 if (str.ne."**") call abort
36 write (str,'(F2.0)') -0.01
37 if (str.ne."**") call abort
38 write (str,'(F2.0)') -0.1
39 if (str.ne."**") call abort
40 write (str,'(F0.2)') 0.0
41 if (str.ne.".00") call abort
42 write (str,'(F0.0)') -0.0
43 if (str.ne."-0.") call abort
44 write (str,'(F0.1)') -0.0
45 if (str.ne."-.0") call abort
46 write (str,'(F0.2)') -0.0
47 if (str.ne."-.00") call abort
48 write (str,'(F0.3)') -0.0
49 if (str.ne."-.000") call abort
50 write (str,'(F3.0)') -0.0
51 if (str.ne."-0.") call abort
52 write (str,'(F2.0)') -0.0
53 if (str.ne."**") call abort
54 write (str,'(F1.0)') -0.0
55 if (str.ne."*") call abort
56 write (str,'(F0.1)') -0.0
57 if (str.ne."-.0") call abort
58 write (str,'(F3.1)') -0.0
59 if (str.ne."-.0") call abort
60 write (str,'(F2.1)') -0.0
61 if (str.ne."**") call abort
62 write (str,'(F1.1)') -0.0
63 if (str.ne."*") call abort
64 END