      program sf1
      print * , sub(i)
      end
      subroutine sub(i)
      i = 2
      end
