1! { dg-do  run }
2!TODO: Move these testcases to gfortran testsuite
3! once compilation with pthreads is supported there
4program main
5  implicit none
6  integer :: i, ios
7  character(len=100) :: iom
8  open (10,file="tst.dat")
9  write (10,'(A4)') 'asdf'
10  close(10)
11  i = 234
12  open(10,file="tst.dat", asynchronous="yes")
13  read (10,'(I4)',asynchronous="yes") i
14  iom = ' '
15  wait (10,iostat=ios,iomsg=iom)
16  if (iom == ' ') stop 1
17  close(10,status="delete")
18end program main
19