Return to f77.fixes CVS log

Up to [Research Unix] / researchv10no / cmd / f77

Annotation of researchv10no/cmd/f77/f77.fixes, revision 1.1

1.1     ! root        1: Bug fixes to f77 installed 30 June 1989:
        !             2: 
        !             3: 1. The type of PARAMETERs is now honored.  Previously, the type was
        !             4:    deduced from the assigned constant, so, e.g.,
        !             5:        DOUBLE PRECISION ONE
        !             6:        PARAMETER (ONE = 1.0)
        !             7:    resulted in ONE being a REAL constant.
        !             8: 
        !             9: 2. As the Fortran 77 specifies, a comma is now allowed after the
        !            10:    label in a DO statement, e.g.
        !            11:        DO 10, i = 1, n
        !            12: 
        !            13: 3. A statement function argument can be subscripted variable of same
        !            14:    name as the dummy argument used in defining the statement function.
        !            15:    For example,
        !            16: 
        !            17:        REAL X(5)
        !            18:        F(X) = X**2
        !            19:        ...
        !            20:        Y = F(X(2))
        !            21:        
        !            22: 4. The calling sequence expected by procedures (functions and subroutines)
        !            23:    has been adjusted to match the calling sequence that has long been
        !            24:    passed.  Previously, procedures expected a length parameter to
        !            25:    accompany procedure arguments.  This change only matters in an
        !            26:    example like the following, in which a CHARACTER argument follows
        !            27:    a procedure argument:
        !            28:        CHARACTER *30 TITLE
        !            29:        EXTERNAL GOO
        !            30:        TITLE = 'HERE''S ABOUT THIRTY CHARACTERS'
        !            31:        CALL FOO(GOO, TITLE)
        !            32:        END
        !            33:        SUBROUTINE FOO(GOO, T)
        !            34:        EXTERNAL GOO
        !            35:        CHARACTER *(*) T
        !            36:        WRITE(6,'(1X,2A)') 'FOO: ', T
        !            37:        CALL GOO(T)
        !            38:        END
        !            39:        SUBROUTINE GOO(T)
        !            40:        CHARACTER *(*) T
        !            41:        WRITE(*,*) 'GOO: ', T
        !            42:        END
        !            43: 
        !            44:    This bug fix also eliminates the old warning
        !            45:    "Dummy procedure not declared EXTERNAL. Code may be wrong."
        !            46:        
        !            47: 5. DATA statements with general implied DOs now work.  Previously only
        !            48:    an initial, singly nested DO worked.  Examples that previously
        !            49:    failed (with different error messages):
        !            50: 
        !            51:         INTEGER IXVI, JXVI, KX1I(2), MX2I(2,2)
        !            52:         DATA IXVI, JXVI, KX1I(2),
        !            53:      1     ((MX2I(IVI, JVI), IVI=1,2), JVI=1,2) /5, 6, 8, 4*4/
        !            54:        write(*,*) ixvi, jxvi, kx1i(2), mx2i
        !            55:         END
        !            56: 
        !            57:         integer IXVI, MX2I(2,2)
        !            58:         DATA IXVI, ((MX2I(IVI, JVI), IVI=1,2), JVI=1,2) /5, 4*4/
        !            59:        write(*,*) ixvi, mx2i
        !            60:         END
        !            61: 
        !            62: 6. A loop like "DO 10 i = 1, 1, -1" no longer has its range omitted.
        !            63: 
        !            64: 7. ASSIGNed FORMAT labels work.
        !            65: 
        !            66: 8. New flags -b and -B are now available: -b warns when the above bug
        !            67:    fixes affect generated objects; -B causes f77 to revert to the
        !            68:    previous buggy behavior.  These are meant as debugging aids ("Why
        !            69:    am I now getting different answers?") and as portability aids --
        !            70:    some compilers derived from f77 retain some of the above bugs.
        !            71: 
        !            72: 9. The default maximum number of statement labels is now larger, so
        !            73:    it should less often be necessary to rerun f77 specifying -Ns402 .
        !            74: 
        !            75: 10. Statement functions among executable statements are now always
        !            76:     disallowed.  Previously, if there were DATA statements, then
        !            77:     an unintended "extension" allowed statement function definitions
        !            78:     to appear among the executables.  (Statement function definitions
        !            79:     may appear among DATA statements, but not after the first
        !            80:     executable statement.)
        !            81: 
        !            82: Please send further bug reports to dmg.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.