------- Comment #9 from ray at ultramarine dot com 2006-05-27 12:21 ------- Subject: Re: Problems with direct access io
Good work, knew this would be hard! Ray On Sat, 27 May 2006, jvdelisle at gcc dot gnu dot org wrote: > > > ------- 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 > > ------- You are receiving this mail because: ------- > You reported the bug, or are watching the reporter. > > -------------------+ Spam Scoring Results +------------------------ > Content analysis details: (0.0 hits, 5.0 required) > 0.0 BAYES_50 BODY: Bayesian spam probability is 40 to 60% > [score: 0.5002] > > -------------------+ End Spam Scoring Results +----------------------- > Ultramarine, Inc. http://www.ultramarine.com Phone: 713-975-8146 Fax: 713-975-8179 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27757
