pragma Import_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 allows OpenVMS conditions (for example, from OpenVMS system services or other OpenVMS languages) to be propagated to Ada programs as Ada exceptions. The pragma specifies that the exception associated with an exception declaration in an Ada program be defined externally (in non-Ada code). For further details on this pragma, see the DEC Ada Language Reference Manual, section 13.9a.3.1.