1-- { dg-do compile } 2 3procedure Self_Ref1 is 4 type Integer_Ptr is access all Integer; 5 Ptr : constant Integer_Ptr := Integer_Ptr (Ptr); -- { dg-error "object \"Ptr\" cannot be used before end of its declaration" } 6 7begin 8 if Ptr /= null then 9 null; 10 end if; 11end Self_Ref1; 12