| ! { dg-do run } | |
| !TODO: Move these testcases to gfortran testsuite | |
| ! once compilation with pthreads is supported there | |
| program main | |
| implicit none | |
| integer :: i, ios | |
| character(len=100) :: iom | |
| open (10,file="tst.dat") | |
| write (10,'(A4)') 'asdf' | |
| close(10) | |
| i = 234 | |
| open(10,file="tst.dat", asynchronous="yes") | |
| read (10,'(I4)',asynchronous="yes") i | |
| iom = ' ' | |
| wait (10,iostat=ios,iomsg=iom) | |
| if (iom == ' ') stop 1 | |
| close(10,status="delete") | |
| end program main |