PUBLIC/PRIVATE module hierarchy

When you have PRIVATE in a module header all entities in any modules that are inclued with USE automatically become private. Is they any way of modifying this behaviour so that public entifities in the sub module are still public?

For example in program fred below I would like to have access to the public entities in modules A and B. 

program fred
use A
!do stuff
end program fred
module A
use module B
private
public :: some stuff
end module A
module B
private :: some stuff
public :: lots of stuff
end module B