! in file sf2a.f90 
      program sf2
      print * , sub(i)
      end
 ! in file sf2b.f90 (compiled separately)
      subroutine sub(i)
      i = 2
      end
