gcc/testsuite/gnat.dg/test_direct_io.adb

   1 -- { dg-do run }
   2 with Ada.Direct_IO;
   3
   4 procedure Test_Direct_IO is
   5
   6    package BDIO is new Ada.Direct_IO (Boolean);
   7    use BDIO;
   8
   9    FD : File_Type;
  10
  11 begin
  12    Create (FD, Form => "shared=yes");
  13    Reset (FD);
  14    Close (FD);
  15 end Test_Direct_IO;