3 with Ada.Streams.Stream_IO;
5 procedure In_Out_Parameter is
7 use Ada.Streams; use Stream_IO;
9 File : Stream_IO.File_Type;
11 type Bitmap is array (Natural range <>) of Boolean;
12 for Bitmap'Component_Size use 1;
14 type Message is record
17 for Message use record
25 TX.B := (others => False);
26 Stream_IO.Create (File => File, Mode => Out_File, Name => "data");
27 Message'Output (Stream (File), TX);
28 Stream_IO.Close (File);
30 Stream_IO.Open (File => File, Mode => In_File, Name => "data");
31 RX := Message'Input (Stream (File));
32 Stream_IO.Close (File);