blob: c114fcc8555aa8ea8fa9c12166bf60ced0ee1a61 [file] [log] [blame]
-- { dg-do compile }
with anon1;
procedure anon2 is
begin
if anon1.F /= null then
null;
end if;
end anon2;