module modules_04_a
implicit none


contains

subroutine b()
print *, "b()"
end subroutine b


end module modules_04_a


program modules_04
use, intrinsic :: iso_fortran_env
implicit none

call f()


contains

subroutine f()
use modules_04_a, only: b
call b()
end subroutine f


integer function g()
use modules_04_a, only: b
call b()
g = 5
end function g


end program modules_04
