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.Source_Location to obtain the current
source file location.