gcc/testsuite/gfortran.dg/io_err_1.f90

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