The node you are looking for is at
gnat_rm/implementation_defined_pragmas pragma-favor-top-level
.