blob: cac09fc30681fba7bdc4a57e951ab9a63e393fc9 (
plain)
1
2
3
4
5
6
7
8
9
|
-- { dg-do compile }
with ICE_Types; use ICE_Types;
procedure ICE_Type is
type Local_Float_T is new Float_View_T;
LF : Local_Float_T;
begin
Initialize (Float_View_T (LF));
end;
|