RosettaCodeData/Task/Call-an-object-method/Ada/call-an-object-method-3.ada

12 lines
316 B
Ada

package Other_Class is
type Object is new My_Class.Object with null record;
overriding procedure Primitive(Self: Object);
end Other_Class;
package body Other_Class is
procedure Primitive(Self: Object) is
begin
Put_Line("Hello Universe!");
end Primitive;
end Other_Class;