diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-23 21:42:10 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-23 21:42:10 +0000 |
| commit | 70952ee73f4ca4dc9fdf317a7e0290a42caa18ad (patch) | |
| tree | 797b94319e93a5e9611a5afcb30d9746919f369a /gcc/testsuite/gfortran.dg | |
| parent | f28fe27f3113662a38e1387cb483ff960219c422 (diff) | |
| download | gcc-70952ee73f4ca4dc9fdf317a7e0290a42caa18ad.tar.gz | |
PR libfortran/18025
* write.c (output_float): Handling the "F0.d" format similarly as
commercial compilers.
* pr18025.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96953 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr18025.f90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr18025.f90 b/gcc/testsuite/gfortran.dg/pr18025.f90 new file mode 100644 index 00000000000..69a6af6ffa9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr18025.f90 @@ -0,0 +1,8 @@ +! PR libfortran/18025 <coudert@clipper.ens.fr> +! {dg-do run} + character(len=80) :: c + write(c, "('#',F0.2,'#')") 1.23 + if (c /= '#1.23#') call abort + write(c, "('#',F0.2,'#')") -1.23 + if (c /= '#-1.23#') call abort + end |