From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 13 Jan 2009 05:53:07 +0000 (+0000)
Subject: re PR libfortran/38772 (r143102 reveals missed error checking on floating point reads)
X-Git-Tag: releases/gcc-4.4.0~898
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=2e50357552c03e8da8cdf351242d4617cd9efced;p=thirdparty%2Fgcc.git

re PR libfortran/38772 (r143102 reveals missed error checking on floating point reads)

2009-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/38772
	* gfortran.dg/fmt_bz_bn_err.f: New test.

From-SVN: r143328
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2cefcbe9e4e9..a34e95f44f96 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libfortran/38772
+	* gfortran.dg/fmt_bz_bn_err.f: New test.
+
 2009-01-12  Nathan Froyd  <froydnj@codesourcery.com>
 
 	* gcc.target/powerpc/ppc-spe64-1.c: Add dg-error handler.
diff --git a/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f b/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f
new file mode 100644
index 000000000000..36881f85dc7e
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f
@@ -0,0 +1,15 @@
+! { dg-do run }
+! PR38772 r143102 reveals missed error checking on floating point reads.
+! Test case contributed by Jack Howarth.
+      program badread
+      implicit none
+      double precision r
+      character*20 temp
+      logical ok
+      temp='             end'
+      r = 3.14159d0
+      ok=.true.
+      read(temp,'(f20.0)',err=8888) r
+      call abort
+8888  continue
+      end