Return to fs053.f CVS log

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

Annotation of 43BSDTahoe/usr.bin/f77/testf77/tests/fs053.f, revision 1.1.1.1

1.1       root        1: c
                      2: c     comment section
                      3: c
                      4: c     fs053
                      5: c
                      6: c          fs053 is a subroutine subprogram which is called by the main
                      7: c     program fm050.  five integer variable arguments are passed and
                      8: c     several return statements are specified.  the subroutine fs053
                      9: c     adds together the values of the first one, two or three arguments
                     10: c     depending on the value of the fifth argument.  the resulting sum
                     11: c     is then returned to the calling program fm050 through the fourth
                     12: c     argument.
                     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 - several arguments, several returns
                     24: c
                     25:       subroutine fs053 (ivon01,ivon02,ivon03,ivon04,ivon05)
                     26:       go to (10,20,30),ivon05
                     27: 10    ivon04 = ivon01
                     28:       return
                     29: 20    ivon04 = ivon01 + ivon02
                     30:       return
                     31: 30    ivon04 = 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.