From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 16 Dec 2005 23:49:33 +0000 (+0000)
Subject: 2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;ds=sidebyside;h=730cfb863b9646613c6c86a7d0721b4049b557b4;p=pf3gnuchains%2Fgcc-fork.git

2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/24268
	* gfortran.dg/fmt_white.f: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108696 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd4561a2634..391df153fd9 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,11 @@
+2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/24268
+	* gfortran.dg/fmt_white.f: New test.
+
 2005-12-16  Steven G. Kargl <kargls@comcast.net>
 
-	gfortran.dg/label_1.f90: New test.
+	* gfortran.dg/label_1.f90: New test.
 
 2005-12-15  Ben Elliston  <bje@au.ibm.com>
 
diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f
new file mode 100644
index 00000000000..21a0d871dde
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_white.f
@@ -0,0 +1,13 @@
+! { dg-do run }
+! PR24268 Test case derived from example given by Iwan Kawrakow
+! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      program pr24268
+      real x
+      character*11 line
+      line = "12.34"
+      read(line,*) x
+      write(line,10) x
+ 10                                                            format(g1
+     *      1.4)
+      if (line.ne."  12.34") call abort()
+      end