1 2 3 4 5 6 7 8 9
-- { dg-do compile } package body ref_type is procedure Print (X : T) is begin null; end; end ref_type;