PROGRAM PROCTEST
      EXTERNAL ADDINT
      WRITE(6,100)
  100 FORMAT(' CALLING ADDINT')
      CALL ADDINT(20,NUM)
      WRITE(6,200)NUM
  200 FORMAT(' NUM=',I4)
      WRITE(6,300)
  300 FORMAT(' DID IT WORK')
      STOP
      END