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

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.