* gfortran.dg/fmt_zero_digits.f90: New test for no error when
zero decimal digits specified in format.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112657
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
--- /dev/null
+! { 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