      subroutine proc(i)
      integer i
      
      print *,i

      return
      end

