gcc-4.9/gcc/testsuite/gnat.dg/test_direct_io.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-do run }
with Ada.Direct_IO;

procedure Test_Direct_IO is

   package BDIO is new Ada.Direct_IO (Boolean);
   use BDIO;

   FD : File_Type;

begin
   Create (FD, Form => "shared=yes");
   Reset (FD);
   Close (FD);
end Test_Direct_IO;