blob: 0eb8aa20808e0b9cf714378ff2e37ca1977918cc [file] [log] [blame]
-- { 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;