2009-12-01 Thomas Quinot <quinot@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-ioexce.ads

diff --git a/gcc/ada/a-ioexce.ads b/gcc/ada/a-ioexce.ads
index 80546df..44865ab 100644 (file)
--- a/gcc/ada/a-ioexce.ads
+++ b/gcc/ada/a-ioexce.ads
@@ -6,15 +6,17 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
--- This specification is adapted from the Ada Reference Manual for use with --
+-- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT.  In accordance with the copyright of that document, you can freely --
 -- copy and modify this specification,  provided that if you redistribute a --
 -- modified version,  any changes that you have made are clearly indicated. --
 --                                                                          --
 ------------------------------------------------------------------------------
 
+pragma Compiler_Unit;
+
 package Ada.IO_Exceptions is
-pragma Pure (IO_Exceptions);
+   pragma Pure;
 
    Status_Error : exception;
    Mode_Error   : exception;