1package ICE_Types is 2 type Float_View_T is private; 3 procedure Initialize (X : out Float_View_T); 4private 5 type Float_View_T is new Float; 6end; 7
1package ICE_Types is 2 type Float_View_T is private; 3 procedure Initialize (X : out Float_View_T); 4private 5 type Float_View_T is new Float; 6end; 7