[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    Re: PR27757 Errors with direct IO - serious errors
From:       Jerry DeLisle <jvdelisle () verizon ! net>
Date:       2006-05-27 15:59:25
Message-ID: 4478775D.1060901 () verizon ! net
[Download RAW message or body]

Paul Thomas wrote:
> This works correctly:
> 
> 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
> ! ---------close/open necessary for successful 
> regurgitation-----------------
> close (15)
> open(unit=15,file="testdirectio",access="direct",form="unformatted",recl=4)
> ! 
> --------------------------*sigh*-------------------------------------------
Yes, sigh.

But the above is useful information.

I am digging on this now.

Jerry

[prev in list] [next in list] [prev in thread] [next in thread]