This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] patch inquire statement on open direct access file


On Tue, 2004-11-30 at 06:37, Bud Davis wrote:
   
> 
> ! check to see that you cannot open a direct access file
> ! for sequential i/o.
> ! derived from NIST test fm910.for
>         CHARACTER*10 D4VK,CDIR
>         CDIR = 'TEMPFILE'
>         OPEN(FILE=CDIR, UNIT=7, ACCESS='DIRECT',RECL=132)
>         INQUIRE(UNIT=7,SEQUENTIAL=D4VK)
>         CLOSE(UNIT=7,STATUS='DELETE')
> C       PRINT*,D4VK
          IF (D4VK.NE.'YES') CALL ABORT
>         END
> 
> 
 


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]