gcc/testsuite/gnat.dg/equal11_interface.ads

package Equal11_Interface is

  type My_Interface_Type is interface;

  procedure Put (R : in My_Interface_Type) is abstract;

end Equal11_Interface;