diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-04 03:04:58 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-04-04 03:04:58 +0000 |
| commit | c5c28809ab18e2448ea90ada2cd1f68000142dfb (patch) | |
| tree | d0c8c318765475d25ab598d829917e9998bc3eb3 | |
| parent | 5eb90a1cbc822af1f2d9d8d82435d73d568f7d5f (diff) | |
| download | gcc-c5c28809ab18e2448ea90ada2cd1f68000142dfb.zip gcc-c5c28809ab18e2448ea90ada2cd1f68000142dfb.tar.gz gcc-c5c28809ab18e2448ea90ada2cd1f68000142dfb.tar.bz2 | |
fmt_zero_digits.f90: New test for no error when zero decimal digits specified in format.
2006-04-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/fmt_zero_digits.f90: New test for no error when
zero decimal digits specified in format.
From-SVN: r112657
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/fmt_zero_digits.f90 | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6ae43d5..f626bd7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-04-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/fmt_zero_digits.f90: New test for no error when + zero decimal digits specified in format. + 2006-04-03 Paul Thomas <pault@gcc.gnu.org> 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 0000000..64f4d72 --- /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 <jvdelisle@gcc.gnu.org> +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 |