1package body Wide_Boolean_Pkg is
2
3   procedure Modify (LH : in out TUINT32; LB : in out TBOOL) is
4   begin
5      LH := 16#12345678#;
6      LB := TRUE;
7   end;
8
9end Wide_Boolean_Pkg;
10