libgomp/testsuite/libgomp.fortran/async_io_3.f90

   1
   2 !TODO: Move these testcases to gfortran testsuite
   3 ! once compilation with pthreads is supported there
   4 ! { dg-do run }
   5 program 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)
  14 end program main
  15 ! { dg-output "Fortran runtime error: Bad value during integer read" }
  16 ! { dg-final { remote_file build delete "tst.dat" } }