16 lines
243 B
Ada
16 lines
243 B
Ada
|
-- { 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;
|