! { dg-do run }
! { dg-shouldfail "Compile-time specifier checking" }
!
! Contributed by Dominique Dhumieres <dominiq at lps dot ens dot fr>
program read
   character(50) :: buf='0.D99999'
   double precision val
   read (UNIT=buf, FMT='(D60.0)', ERR=10) Val
   STOP 1
10 read (UNIT=buf, FMT='(D60.0)') Val
end program read
! { dg-output "At line 10 of file.*" }
! { dg-output "Fortran runtime error: Bad value during floating point read" }