1
2!TODO: Move these testcases to gfortran testsuite
3! once compilation with pthreads is supported there
4! { dg-do run }
5program main
6  integer :: i
7  open (10,file="tst.dat")
8  write (10,'(A4)') 'asdf'
9  close(10)
10  i = 234
11  open(10,file="tst.dat", asynchronous="yes")
12  read (10,'(I4)',asynchronous="yes") i
13  wait(10)
14end program main
15! { dg-output "Fortran runtime error: Bad value during integer read" }
16! { dg-final { remote_file build delete "tst.dat" } }
17