blob: 34d34926ea4607bcc9223551ac740f3755c5c803 [file] [log] [blame]
pragma Eliminate (p, d);
package Lto5_Pkg is
type t is tagged null record;
procedure d (a : t);
end;