gcc/testsuite/gnat.dg/incomplete4.adb

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