gcc-4.9/gcc/testsuite/gfortran.dg/io_err_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { 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
   call abort
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" }