blob: 28e1a2183c882f68b48afddc7f3f5edf054ac782 [file] [log] [blame]
package Equal10 is
type R is record X : Integer; end record;
Rr : R;
function "=" (Y : R; Z : Integer) return Boolean is
(Y.X = Z);
procedure Dummy;
end Equal10;