blob: a65dbd912e82b7154211bc249915ff122d31c018 [file] [log] [blame]
-- { dg-do compile }
procedure Self_Ref1 is
type Integer_Ptr is access all Integer;
Ptr : constant Integer_Ptr := Integer_Ptr (Ptr); -- { dg-error "object \"Ptr\" cannot be used before end of its declaration" }
begin
if Ptr /= null then
null;
end if;
end Self_Ref1;