summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_direct_io.adb
blob: 0eb8aa20808e0b9cf714378ff2e37ca1977918cc (plain)
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;