-- { 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;