gcc/testsuite/gfortran.dg/fmt_bz_bn_err.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! { dg-do run }
! { dg-options "-std=legacy" }
!
! 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
      STOP 1
8888  continue
      end