From c5c28809ab18e2448ea90ada2cd1f68000142dfb Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Tue, 4 Apr 2006 03:04:58 +0000 Subject: [PATCH] fmt_zero_digits.f90: New test for no error when zero decimal digits specified in format. 2006-04-03 Jerry DeLisle * gfortran.dg/fmt_zero_digits.f90: New test for no error when zero decimal digits specified in format. From-SVN: r112657 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 | 10 ++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6ae43d57e00..f626bd795af 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-04-03 Jerry DeLisle + + * gfortran.dg/fmt_zero_digits.f90: New test for no error when + zero decimal digits specified in format. + 2006-04-03 Paul Thomas PR fortran/26981 diff --git a/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 b/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 new file mode 100644 index 00000000000..64f4d72428e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 @@ -0,0 +1,10 @@ +! { dg-do run } +! Verify that when decimal precision is zero, no error. +! Submitted by Jerry DeLisle +program test + character(20) :: astr + 50 FORMAT (d20.0) + astr = "" + write(astr,50) -8.0D0 + if (astr.ne." 0.D+01") call abort() +end program test -- 2.30.2