mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-12 08:47:41 +01:00
17 lines
462 B
Fortran
17 lines
462 B
Fortran
|
|
!TODO: Move these testcases to gfortran testsuite
|
|
! once compilation with pthreads is supported there
|
|
! { dg-do run }
|
|
program main
|
|
integer :: i
|
|
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
|
|
wait(10)
|
|
end program main
|
|
! { dg-output "Fortran runtime error: Bad value during integer read" }
|
|
! { dg-final { remote_file build delete "tst.dat" } }
|