5.2 Enclosing_Entity

This intrinsic subprogram is used in the implementation of the
library routine GNAT.Source_Info. The only useful use of the
intrinsic import in this case is the one in this unit, so an
application program should simply call the function
GNAT.Source_Info.Enclosing_Entity to obtain the name of
the current subprogram, package, task, entry, or protected subprogram.