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