------- Comment #8 from jvdelisle at gcc dot gnu dot org 2006-05-27 05:10
-------
Here is some good news. I came up with a test case that fails with gfortran
and passes with intel. The bad news is that I have not fixed it yet. At least
I have something to work with now and its ugly.
program testdirect
implicit none
integer, dimension(100) :: a
integer :: i,j,k,ier
real :: x
a = 0
call random_seed()
open(unit=15,file="testdirectio",access="direct",form="unformatted",recl=4)
do i=1,100
call random_number(x)
k= int(x * 100)+1
a(i)=k
write(unit=15, rec=k) k
enddo
do j=1,100
read(unit=15, rec=a(j), iostat=ier) k
if (ier.ne.0) then
print *, "No Record: ", j
else
print *, "Bad Record at ",a(j), k
endif
enddo
close(unit=15, status="delete")
end program testdirect
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27757
