This intrinsic subprogram is used in the implementation of the
library routine GNAT.Current_Exception
. 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.Current_Exception.Exception_Message
to obtain
the message associated with the current exception.