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

[Toon@sources.redhat.com, Moene <toon@moene.indiv.nluug.nl]

>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: