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 2cefcbe9e4e9b231f00c377aa8249fdca261ee36..a34e95f44f967e4ae71ff1f1c82b7197aad02abc 100644 (file)
--- 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 (file)
index 0000000..36881f8
--- /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