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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f

+! { 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