summaryrefslogtreecommitdiff
path: root/gcc/ada/a-ioexce.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/a-ioexce.ads')
-rw-r--r--gcc/ada/a-ioexce.ads30
1 files changed, 30 insertions, 0 deletions
diff --git a/gcc/ada/a-ioexce.ads b/gcc/ada/a-ioexce.ads
new file mode 100644
index 00000000000..58b9e1b89b1
--- /dev/null
+++ b/gcc/ada/a-ioexce.ads
@@ -0,0 +1,30 @@
+------------------------------------------------------------------------------
+-- --
+-- GNAT RUNTIME COMPONENTS --
+-- --
+-- A D A . I O _ E X C E P T I O N S --
+-- --
+-- S p e c --
+-- --
+-- $Revision: 1.6 $ --
+-- --
+-- This specification is adapted 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. --
+-- --
+------------------------------------------------------------------------------
+
+package Ada.IO_Exceptions is
+pragma Pure (IO_Exceptions);
+
+ Status_Error : exception;
+ Mode_Error : exception;
+ Name_Error : exception;
+ Use_Error : exception;
+ Device_Error : exception;
+ End_Error : exception;
+ Data_Error : exception;
+ Layout_Error : exception;
+
+end Ada.IO_Exceptions;