summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/lto6_pkg.ads
blob: 81b7ddc5a87dc89f093d5563a0253380d1d8328e (plain)
1
2
3
4
5
6
7
8
with Ada.Finalization; use Ada.Finalization;

package Lto6_Pkg is
  type F_String is new Controlled with record
    Data : access String;
  end record;
  Null_String : constant F_String := (Controlled with Data => null);
end Lto6_Pkg;