1package body Lto13_Pkg is
2
3  procedure Proc is
4  begin
5    raise Constraint_Error;
6  end;
7
8  type T is null record;
9
10end Lto13_Pkg;
11