blob: 9ab2f5c507e525f983d36954f5ac1682f24bccf6 [file] [log] [blame]
-- { dg-do compile }
package body Overriding_Ops2 is
overriding procedure Finalize (Self : in out Consumer) is
begin
null;
end Finalize;
end Overriding_Ops2;