| ------------------------------------------------------------------------------ |
| -- -- |
| -- GNAT RUN-TIME COMPONENTS -- |
| -- -- |
| -- D I R E C T _ I O -- |
| -- -- |
| -- S p e c -- |
| -- -- |
| -- 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. -- |
| -- -- |
| ------------------------------------------------------------------------------ |
| |
| pragma Ada_2005; |
| -- Explicit setting of Ada 2005 mode is required here, since we want to with a |
| -- child unit (not possible in Ada 83 mode), and Text_IO is not considered to |
| -- be an internal unit that is automatically compiled in Ada 2005 mode (since |
| -- a user is allowed to redeclare Direct_IO). |
| |
| with Ada.Direct_IO; |
| |
| generic package Direct_IO renames Ada.Direct_IO; |
