blob: f6758638a63d1d8f83ed710cb9a45965a73fc17c [file] [log] [blame]
-- { dg-do compile }
-- { dg-options "-O -gnatn" }
with Taft_Type4_Pkg; use Taft_Type4_Pkg;
procedure Taft_Type4 is
Obj : T;
begin
Proc (Obj);
end;