1! { dg-do run }
2! { dg-shouldfail "Compile-time specifier checking" }
3!
4! Contributed by Dominique Dhumieres <dominiq at lps dot ens dot fr>
5program read
6   character(50) :: buf='0.D99999'
7   double precision val
8   read (UNIT=buf, FMT='(D60.0)', ERR=10) Val
9   call abort
1010 read (UNIT=buf, FMT='(D60.0)') Val
11end program read
12! { dg-output "At line 10 of file.*" }
13! { dg-output "Fortran runtime error: Bad value during floating point read" }
14
15