module B

contains

subroutine f_b()

write (6,*) "f_b()"

end subroutine f_b

end module B