2008-05-30 Vladimir Makarov <vmakarov@redhat.com>

[official-gcc.git] / gcc / testsuite / gnat.dg / specs / iface_eq_test-child.ads

--  { dg-do compile }
--  { dg-options "-gnatc" }
generic                    
package Iface_Eq_Test.Child is
   protected type PO is new Iface with
      procedure Dummy;
   end;
   overriding function "=" (L, R : access PO) return Boolean;
end;