pragma Suppress_All;
This pragma can appear anywhere within a unit.
The effect is to apply Suppress (All_Checks) to the unit
in which it appears. This pragma is implemented for compatibility with DEC
Ada 83 usage where it appears at the end of a unit, and for compatibility
with Rational Ada, where it appears as a program unit pragma.
The use of the standard Ada pragma Suppress (All_Checks)
as a normal configuration pragma is the preferred usage in GNAT.