C     ADDMAIN.FOR  Copyright(c) 1998, Lahey Computer Systems, Inc.
C     Copying for sale requires permission from Lahey Computers Systems.
C     Otherwise, distribution of all or part of this file is permitted
C     if these four lines are included.
      PROGRAM ADDMAIN
      integer :: i,j,k,l
      i = 17
      j = 24
      call foradd(i,j,k)
      print *, 'i,j,k=',i,j,k
      i = 52
      j = 16
      call asmadd(i,j,l)
      print *, 'i,j,l=',i,j,l
      stop
      end
      SUBROUTINE FORADD(II,JJ,KK)
      kk = ii+jj
      return
      end