Retro68/gcc/libgomp/testsuite/libgomp.fortran/async_io_8.f90
Wolfgang Thaller 6fbf4226da gcc-9.1
2019-06-20 20:10:10 +02:00

31 lines
763 B
Fortran

! { dg-do run }
! PR libfortran/88411
! This used to generate errors due to a mixup of
! synchronous and asynchronous execution.
! Test case by Harald Anlauf.
program gfcbug153
implicit none
integer :: iu, irecl
real :: a(100,20), b(1,3000)
iu = 10
a = 0.
b = 0.
inquire (iolength = irecl) a
open (iu, file="file1.dat", access='direct', &
asynchronous='yes', &
recl=irecl)
write(iu, rec=1) a(:,:)
write(iu, rec=2) a(:,:)
write(iu, rec=3) a(:,:)
close (iu,status="delete")
inquire (iolength = irecl) b
open (iu, file="file2.dat", access='direct', &
asynchronous='yes', &
recl=irecl)
write(iu, rec=1) b(:,:)
write(iu, rec=2) b(:,:)
write(iu, rec=3) b(:,:)
close (iu,status="delete")
end program