1 2 3 4 5 6 7 8 9 10
-- { dg-do compile } with Incomplete4_Pkg; use Incomplete4_Pkg; with System; procedure Incomplete4 is L : System.Address := A'Address; begin null; end;