blob: 522bd55a281cd989b640def97f9ba129cf70ce9e [file] [log] [blame]
package ICE_Types is
type Float_View_T is private;
procedure Initialize (X : out Float_View_T);
private
type Float_View_T is new Float;
end;