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