gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f

   1 ! { dg-do run }
   2 ! { dg-options "-std=legacy" }
   3 !
   4 ! PR38772 r143102 reveals missed error checking on floating point reads.
   5 ! Test case contributed by Jack Howarth.
   6       program badread
   7       implicit none
   8       double precision r
   9       character*20 temp
  10       logical ok
  11       temp='             end'
  12       r = 3.14159d0
  13       ok=.true.
  14       read(temp,'(f20.0)',err=8888) r
  15       call abort
  16 8888  continue
  17       end