Return to fs054.f CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests

Annotation of 43BSDTahoe/usr.bin/f77/testf77/tests/fs054.f, revision 1.1

1.1     ! root        1: c
        !             2: c     comment section
        !             3: c
        !             4: c     ff054
        !             5: c
        !             6: c          ff054 is a function subprogram which is referenced by the
        !             7: c     main program.  five integer variable arguments are passed and
        !             8: c     several return statements are specified.  the function ff054
        !             9: c     adds together the values of the first one, two or three arguments
        !            10: c     depending on the value of the fourth argument.  the resulting sum
        !            11: c     is then returned to the referencing program fm050 through the
        !            12: c     function reference.
        !            13: c
        !            14: c      references
        !            15: c        american national standard programming language fortran,
        !            16: c              x3.9-1978
        !            17: c
        !            18: c        section 15.5.1, function subprogram and function statement
        !            19: c        section 15.8, return statement
        !            20: c
        !            21: c     test section
        !            22: c
        !            23: c         function subprogram - several arguments, several returns
        !            24: c
        !            25:       integer function ff054 (ivon01,ivon02,ivon03,ivon04)
        !            26:       go to (10,20,30),ivon04
        !            27: 10    ff054 = ivon01
        !            28:       return
        !            29: 20    ff054 = ivon01 + ivon02
        !            30:       return
        !            31: 30    ff054 = ivon01 + ivon02 + ivon03
        !            32:       return
        !            33:       end

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