blob: 352e7e4a8328aa884f122d5b3b070dfb661c209a [file] [log] [blame]
-- { dg-do compile }
package body TF_Interface_1 is
procedure Get_It (Handle : Stream_Access; It : out CF_Interface_1'class)
is
begin
CF_Interface_1'Class'Read (Handle, It);
end;
end;