PR debug/66535
[official-gcc.git] / gcc / testsuite / gnat.dg / ice_types.ads
blob522bd55a281cd989b640def97f9ba129cf70ce9e
1 package ICE_Types is
2 type Float_View_T is private;
3 procedure Initialize (X : out Float_View_T);
4 private
5 type Float_View_T is new Float;
6 end;