Return to fs052.f CVS log

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

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

1.1     ! root        1: c
        !             2: c     comment section
        !             3: c
        !             4: c     fs052
        !             5: c
        !             6: c          fs052 is a subroutine subprogram which is called by the main
        !             7: c     program fm050.  no arguments are specified therefore all
        !             8: c     parameters are passed via unlabeled common.  the subroutine fs052
        !             9: c     increments the value of one integer variable by 1,2,3,4 or 5
        !            10: c     depending on the value of a second integer variable and then
        !            11: c     returns control to the calling program fm050.  several return
        !            12: c     statements are included.
        !            13: c
        !            14: c      references
        !            15: c        american national standard programming language fortran,
        !            16: c              x3.9-1978
        !            17: c
        !            18: c        section 15.6, subroutines
        !            19: c        section 15.8, return statement
        !            20: c
        !            21: c     test section
        !            22: c
        !            23: c         subroutine subprogram - no arguments, many returns
        !            24: c
        !            25:       subroutine fs052
        !            26:       common rvdn01,ivcn01,ivcn02
        !            27:       go to (10,20,30,40,50),ivcn02
        !            28: 10    ivcn01 = ivcn01 + 1
        !            29:       return
        !            30: 20    ivcn01 = ivcn01 + 2
        !            31:       return
        !            32: 30    ivcn01 = ivcn01 + 3
        !            33:       return
        !            34: 40    ivcn01 = ivcn01 + 4
        !            35:       return
        !            36: 50    ivcn01 = ivcn01 + 5
        !            37:       return
        !            38:       end

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