C*MFDRIV -- PGPLOT Graphics MetaFile driver C+ SUBROUTINE MFDRIV (IFUNC, RBUF, NBUF, CHR, LCHR) INTEGER IFUNC, NBUF, LCHR, LUN REAL RBUF(*) CHARACTER*(*) CHR CHARACTER*(80) DEFNAM OPEN (UNIT = LUN, FILE = CHR(:LCHR), CARRIAGECONTROL = 'NONE', 1 DEFAULTFILE = DEFNAM, DISPOSE = 'DELETE', STATUS = 'NEW', 2 RECL = 180, FORM = 'UNFORMATTED', RECORDTYPE = 'FIXED', 3 IOSTAT = IER) CLOSE (LUN, DISPOSE = 'KEEP') end
In file mfdriv_bug.f:8 OPEN (UNIT = LUN, FILE = CHR(:LCHR), CARRIAGECONTROL = 'NONE', 1 Error: Syntax error in OPEN statement at (1) In file mfdriv_bug.f:12 CLOSE (LUN, DISPOSE = 'KEEP') 1 Error: Syntax error in CLOSE statement at (1) The problem is caused by CARRIAGECONTROL, DEFAULTFILE, DISPOSE and RECORDTYPE, none of which are standard. Paul T -- Summary: No support for non-standard CARRIAGECONTROL, DEFAULTFILE, DISPOSE and RECORDTYPE Product: gcc Version: 4.2.0 Status: UNCONFIRMED Severity: enhancement Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: pault at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26305