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