pragma Export_Exception ( [Internal =>] LOCAL_NAME, [, [External =>] EXTERNAL_SYMBOL,] [, [Form =>] Ada | VMS] [, [Code =>] static_integer_EXPRESSION]); EXTERNAL_SYMBOL ::= IDENTIFIER | static_string_EXPRESSION
This pragma is implemented only in the OpenVMS implementation of GNAT. It causes the specified exception to be propagated outside of the Ada program, so that it can be handled by programs written in other OpenVMS languages. This pragma establishes an external name for an Ada exception and makes the name available to the OpenVMS Linker as a global symbol. For further details on this pragma, see the DEC Ada Language Reference Manual, section 13.9a3.2.