gcc/testsuite/gnat.dg/lto20_pkg.ads

   1 package Lto20_Pkg is
   2
   3   type Arr is private;
   4
   5   Null_Arr : constant Arr;
   6
   7   procedure Proc (A : Arr);
   8
   9 private
  10
  11   type Obj;
  12
  13   type Handle is access Obj;
  14
  15   Null_Handle : constant Handle := null;
  16
  17   type Arr is array (1 .. 2) of Handle;
  18
  19   Null_Arr : constant Arr := (others => Null_Handle);
  20
  21 end Lto20_Pkg;