From 658eb6aad53fd60f3dac60150471ab34f6d36c0c Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 4 Apr 2006 03:04:58 +0000
Subject: [PATCH] 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112657 138bc75d-0d04-0410-961f-82ee72b054a4
---
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 6ae43d57e00c..f626bd795af9 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 000000000000..64f4d72428e8
--- /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
--
GitLab