module b implicit none contains subroutine g() print *, "g()" end subroutine end module