xref: /original-bsd/usr.bin/f77/tests/tests/fs029.f (revision 7562ff97)
1      integer function ff029(ivon01)
2c
3c     comment section
4c     ff029
5c
6c         this function subprogram is called by the main program fm028.
7c     the function argument is incremented by 1 and control returned
8c     to the calling program.
9c
10c      references
11c        american national standard programming language fortran,
12c              x3.9-1978
13c
14c        section 15.5.1, defining function subprograms and function
15c                        statements
16c        section 15.8, return statement
17c
18c     test section
19c
20c          function subprogram
21c
22c     increment argument by 1 and return to calling program.
23c
24      ivon02 = ivon01
25      ff029  = ivon02 + 1
26      ivon02 = 500
27      return
28      end
29