diff options
author | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-22 02:26:22 +0000 |
---|---|---|
committer | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-22 02:26:22 +0000 |
commit | 94528b8483213ee766fee7bc1917caf5a301f448 (patch) | |
tree | b53a754e6b06b616e174ba10db778fee72544ffc /gcc/testsuite/gfortran.dg/pr20124.f90 | |
parent | 0fcc981fa6eb41869dce802e289b012f4c3726be (diff) |
This commit was manufactured by cvs2svn to create tagapple/gcc-5010
'apple-gcc-5010'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/tags/apple-gcc-5010@98539 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr20124.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/pr20124.f90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr20124.f90 b/gcc/testsuite/gfortran.dg/pr20124.f90 new file mode 100644 index 00000000000..69f4f18b29c --- /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 |