This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran] patch inquire statement on open direct access file
- From: Bud Davis <bdavis9659 at comcast dot net>
- To: "gcc-patches at gcc dot gnu dot org" <gcc-patches at gcc dot gnu dot org>
- Cc: gfortran <fortran at gcc dot gnu dot org>
- Date: Tue, 30 Nov 2004 06:46:49 -0600
- Subject: Re: [gfortran] patch inquire statement on open direct access file
- References: <1101818250.15534.7.camel@localhost.localdomain>
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
>
>