1package body Volatile11_Pkg is
2
3   procedure Bit_Test(Input : in Integer;
4                      Output1 : out Boolean; Output2 : out Boolean;
5                      Output3 : out Boolean; Output4 : out Boolean;
6                      Output5 : out Boolean; Output6 : out Boolean;
7                      Output7 : out Boolean; Output8 : out Boolean)  is
8  begin
9    Output8 := B;
10    Output7 := Input = 7;
11    Output6 := Input = 6;
12    Output5 := Input = 5;
13    Output4 := Input = 4;
14    Output3 := Input = 3;
15    Output2 := Input = 2;
16    Output1 := Input = 1;
17  end Bit_Test;
18
19  function F return Ptr is
20  begin
21    B := True;
22    return B'Access;
23  end;
24
25end Volatile11_Pkg;
26