gcc/testsuite/gnat.dg/aggr20_pkg.ads

with System;

package Aggr20_Pkg is

   procedure Proc;

   Default_Nil_Address : constant System.Address := Proc'Address;

end Aggr20_Pkg;