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

Reply via email to