PROGRAM Test
       use calculator, only: add
       integer:: result

       call add (2,2,result)
       END PROGRAM