diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-03-11 09:03:02 +0100 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2005-03-11 08:03:02 +0000 |
| commit | 0b2df4a7037bf50942bb43ae799f88a7d6c4c261 (patch) | |
| tree | 411601a3cc2297dfd35f8ff0cb7349f27c25de3f /gcc | |
| parent | cbefb99c9944240c248e7aa8dcd9bfd2b7ecc864 (diff) | |
| download | gcc-0b2df4a7037bf50942bb43ae799f88a7d6c4c261.zip gcc-0b2df4a7037bf50942bb43ae799f88a7d6c4c261.tar.gz gcc-0b2df4a7037bf50942bb43ae799f88a7d6c4c261.tar.bz2 | |
[multiple changes]
2005-03-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20124
* gfortran.dg/pr20124.f90: New Test
2005-03-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/20124
* write.c (output_float): Adds a nzero_real variable to store
the number of leading zeros whatever the format width is. Corrects
the rounding of numbers less than 10^(-width). Fixes typo in an
error message. Updates copyright years
From-SVN: r96291
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr20124.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c51d1d1..109c848 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-03-12 Francois-Xavier Coudert <coudert@clipper.ens.fr> + + PR libfortran/20124 + * gfortran.dg/pr20124.f90: New Test + 2005-03-10 James A. Morrison <phython@gcc.gnu.org> PR tree-optimization/20130 diff --git a/gcc/testsuite/gfortran.dg/pr20124.f90 b/gcc/testsuite/gfortran.dg/pr20124.f90 new file mode 100644 index 0000000..69f4f18 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr20124.f90 @@ -0,0 +1,8 @@ +! { dg-do run } +! pr 20124 + character*80 line + x = -.01 + y = .01 + write(line,'(2f10.2)') x, y + if (line.ne.' -0.01 0.01') call abort + end |