program intface
       external c_intface
       integer i

       call c_intface(i)

       stop
       end