libf2c/7236: OPEN(...,RECL=nnn,...) without ACCESS='DIRECT' should assume a direct access file.

libf2c/7236: OPEN(...,RECL=nnn,...) without ACCESS='DIRECT' should assume a direct access file.

[Toon, Moene]

>Number:         7236
>Category:       libf2c
>Synopsis:       OPEN(...,RECL=nnn,...) without ACCESS='DIRECT' should assume a direct access file.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          rejects-legal
>Submitter-Id:   net
>Arrival-Date:   Mon Jul 08 12:35:59 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     Toon Moene <toon@moene.indiv.nluug.nl
>Release:        gcc-3.x
>Organization:
>Environment:
All
>Description:
The following program:

      open(unit=1,file='datafile.dat',recl=132,status='old')
      Read(1,10) x,y,z
10    FOrmat(3f10.2)
      end

fails with:

sfe: formatted io not allowed
apparent state: unit 1 named datafile.dat
lately reading sequential formatted external IO

probably because it assumes direct access (due to the
recl=132 clause) which defaults to unformatted I/O.
>How-To-Repeat:

>Fix:
Should implement Fortran 90 semantics, i.e., assume
a sequential file (because ACCESS='DIRECT' is not
specified) and hence formatted I/O.
>Release-Note:
>Audit-Trail:
>Unformatted:

Re: libf2c/7236: OPEN(...,RECL=nnn,...) without ACCESS='DIRECT' should assume a direct access file.

[toon]

Synopsis: OPEN(...,RECL=nnn,...) without ACCESS='DIRECT' should assume a direct access file.

Responsible-Changed-From-To: unassigned->toon
Responsible-Changed-By: toon
Responsible-Changed-When: Wed Jul 10 14:22:22 2002
Responsible-Changed-Why:
    Fortran Maintainer.
State-Changed-From-To: open->closed
State-Changed-By: toon
State-Changed-When: Wed Jul 10 14:22:22 2002
State-Changed-Why:
    Fixed for next major release.
    
    See: http://gcc.gnu.org/ml/gcc-cvs/2002-07/msg00242.html

http://gcc.gnu.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=gcc&pr=7236