module m2
contains
subroutine s2()
writ(*, '(a)') 'Greet from m2-s2!'
end subroutine s2
end module m2