Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_direct_io.adb
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
;