blob: 3d36b96ff9628792f0efb66bf55c36bad28e682c [file] [log] [blame]
-- { dg-do compile }
package body ref_type is
procedure Print (X : T) is
begin
null;
end;
end ref_type;