1 2 3 4 5 6 7 8 9 10
module b implicit none contains subroutine g() print *, "g()" end subroutine end module