[Bug fortran/20163] New: gfortran - error opening direct access file

[dir at lanl dot gov]

This is the essence of one the errors that one of my programs is seeing. It is a
Double Wammy - first the open of the direct access file fails for no reason -
then it get an internal library error. g77 and Absoft are happy with it.

[dir:~/tests/gfortran] dir% gfortran -g -o recursive recursive.f
[dir:~/tests/gfortran] dir% recursive
At line 14 of file recursive.f
Internal Error: Recursive library calls not allowed
[dir:~/tests/gfortran] dir% cat recursive.f
      program main
      CHARACTER*8 STATUS
      STATUS='SCRATCH'
      NT=55
      NTAP29=29
      NRECL=64
      NPUINT=4
        OPEN(UNIT=NT,STATUS=STATUS,ACCESS='DIRECT',
     $     FORM='UNFORMATTED',RECL=NRECL*NPUINT,ERR=999)
       STOP      
      
  999 CONTINUE
  
          OPEN (NTAP29, STATUS='SCRATCH')
  
      STOP
      END

-- 
           Summary: gfortran - error opening direct access file
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: dir at lanl dot gov
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: powerpc-apple-darwin7.8.0


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20163