gcc-4.9/gcc/testsuite/gnat.dg/aggr20_pkg.ads


1
2
3
4
5
6
7
8
9

with System;

package Aggr20_Pkg is

   procedure Proc;

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

end Aggr20_Pkg;