Conference turris::fortran

1198.0. "INQUIRE CARRIAGECONTROL different VAX - Alpha" by GIDDAY::GILLINGS (a crucible of informative mistakes) Tue Feb 25 1997 18:08

    The following program returns different results on VAX and Alpha for
    some files.

        OPTIONS /EXTEND
        PROGRAM TEST
        CHARACTER*40    CNAME
        CHARACTER*20RTYPE, CRC, ORG
        WRITE (6,100)
100     FORMAT (' Input filename: ',$)
        READ (5,110) CNAME
110     FORMAT (A)
        OPEN (1,FILE=CNAME,STATUS='OLD',READONLY)
        INQUIRE(UNIT = 1, RECORDTYPE = RTYPE, CARRIAGECONTROL = CRC,
        1 ORGANIZATION = ORG)
        WRITE (6,200) RTYPE,CRC,ORG
200     FORMAT (' Record type =',A/' Carriagecontrol =',A/' Organisation =',A)
        END

    Using a NETSERVER.LOG file (PRN format),
    
    NETSERVER.LOG;167             File ID:  (12248,2,0)
    Size:            2/4          Owner:    [DECNET,FAL$SERVER]
    Created:   25-FEB-1997 22:21:53.42
    Revised:   25-FEB-1997 22:27:25.43 (1)
    Expires:   <None specified>
    Backup:    <No backup recorded>
    Effective: <None specified>
    Recording: <None specified>
    File organization:  Sequential
    Shelved state:      Online
    File attributes:    Allocation: 4, Extend: 0, Global buffer count: 0
                        No version limit
    Record format:      VFC, 2 byte header, maximum 77 bytes
    Record attributes:  Print file carriage control
    RMS attributes:     None
    Journaling enabled: None
    File protection:    System:RWED, Owner:RWED, Group:RE, World:R
    Access Cntrl List:  None
    
    when compiled with Alpha Digital Fortran 77 V7.0-6, the result is:
    
      Record type =VARIABLE
      Carriagecontrol =NONE
      Organisation =SEQUENTIAL
    
    Under VAX Digital Fortran V6.4-165, the result is
    
      Record type =VARIABLE
      Carriagecontrol =UNKNOWN
      Organisation =SEQUENTIAL
    
    The closest RMS attribute I can find is RAT which returns PRN on both
    VAX and Alpha. 
    
    There was a report about problems with INQUIRE and CARRIAGECONTROL back
    in 1993 in DEC_FORTRAN_ALPHA note 730.4, but that was supposed to have
    been fixed.
    
                                            John Gillings, Sydney CSC

    UNKNOWN is the correct value, though one could argue that the
    RECORDTYPE is wrong for both, since VFC can't be specified in Fortran.
    
    What does the user think they want?
    
    				Steve

  Steve,

>    What does the user think they want?

    They don't seem to know exactly what they want, just that the VAX and Alpha
  compilers should give the same result, correct or otherwise :*). When I can
  get hold of the customer I'll see if I can get a straight answer.

						John Gillings, Sydney CSC

    Steve,
    
      The customer prefers "UNKNOWN" since that's what his code is
    expecting. It's odd that the Digital Fortran Reference Manual says
    there are only 3 keywords "FORTRAN", "LIST" and "NONE". Yet VAX
    FORTRAN and Digital Fortran/VAX adds "UNKNOWN" (despite the docs).
    
      Has "UNKNOWN" been dropped? Is this a deliberate decision? 
    
    						John Gillings, Sydney CSC

You must be looking at the OPEN documentation.  The INQUIRE documentation does
list 'UNKNOWN'.

We'll fix the Alpha RTL to return 'UNKNOWN' for types not corresponding to
an OPEN keyword (though I imagine we'll leave VFC='VARIABLE' alone.)

			Steve