summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/deferred_const2_pkg.ads
blob: c76e5fdb80201c646acb876d251885478b6c3fb4 (plain)
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;