blob: 699c4daf3b382452769f12edcefaa46dda7a3312 [file] [log] [blame]
-- { dg-do compile }
procedure equal_access is
PA, PB : access procedure := null;
begin
if PA /= PB then
null;
end if;
end;