diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-21 02:22:45 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-02-21 02:22:45 +0000 |
| commit | 7188daa7e21f941cec5ee129aa14a1ece5b7ca80 (patch) | |
| tree | 80905261c88234ce945cb4b86866470f97542fc5 | |
| parent | e902a4d4b05798748e92cd868a1d7a92346b5a41 (diff) | |
| download | ppe42-gcc-7188daa7e21f941cec5ee129aa14a1ece5b7ca80.tar.gz ppe42-gcc-7188daa7e21f941cec5ee129aa14a1ece5b7ca80.zip | |
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/35036
* gfortran.dg/fmt_zero_digits.f90: Revise test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132511 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 | 26 |
2 files changed, 27 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 49737884753..764f99fb756 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/35036 + * gfortran.dg/fmt_zero_digits.f90: Revise test. + 2008-02-20 Seongbae Park <seongbae.park@gmail.com> * gcc.dg/Wframe-larger-than.c: New option test. diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 index adb307155ec..e7342397ada 100644 --- a/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 +++ b/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 @@ -1,12 +1,30 @@ ! { dg-do run } -! Verify that when decimal precision is zero, no error. +! Verify that when decimal precision is zero, error error given except with 1P. ! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org> +! Modified for fix to PR35036 program test + implicit none character(20) :: astr - 50 FORMAT (d20.0) + integer :: istat + 50 FORMAT (1PD20.0) astr = "" write(astr,50) -8.0D0 - if (astr.ne." -0.D+01") call abort() + if (astr.ne." -8.D+00") call abort write(astr,50) 8.0D0 - if (astr.ne." 0.D+01") call abort() + if (astr.ne." 8.D+00") call abort + write(astr, '(E15.0)', iostat=istat) 1e5 + if (istat /= 5006) call abort + write(astr, '(D15.0)', iostat=istat) 1e5 + if (istat /= 5006) call abort + write(astr, '(G15.0)', iostat=istat) 1e5 + if (istat /= 5006) call abort + write(astr, '(2PE15.0)', iostat=istat) 1e5 + if (istat /= 5006) call abort + write(astr, '(0PE15.0)', iostat=istat) 1e5 + if (istat /= 5006) call abort + write(astr, '(1PE15.0)', iostat=istat) 1e5 + if (istat /= 0) call abort + write(astr, '(F15.0)', iostat=istat) 1e5 + if (astr.ne." 100000.") call abort + if (istat /= 0) call abort end program test |
