gcc/testsuite/gnat.dg/deferred_const3_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Deferred_Const3_Pkg is

  C : constant Natural := 1;

  C1 : constant Natural := 1;
  for C1'Address use C'Address;

  C2 : constant Natural;
  for C2'Address use C'Address;

  C3 : constant Natural;

  procedure Dummy;

private
  C2 : constant Natural := 1;

  C3 : constant Natural := 1;
  for C3'Address use C'Address;

end Deferred_Const3_Pkg;