1 package Volatile11_Pkg
is
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);
9 type Ptr
is access all Boolean;
11 B
: aliased Boolean := False;
13 function F
return Ptr
;