gcc/testsuite/gnat.dg/deferred_const2_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12

package Deferred_Const2_Pkg is

  I : Integer := 16#20_3A_2D_28#;

  pragma Warnings (Off);
  S : constant string(1..4);
  for S'address use I'address;
  pragma Import (Ada, S);

  procedure Dummy;

end Deferred_Const2_Pkg;