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      STOP 1
168888  continue
17      end
18