gcc-4.9/gcc/testsuite/gnat.dg/lto13_pkg.adb


1
2
3
4
5
6
7
8
9
10

package body Lto13_Pkg is

  procedure Proc is
  begin
    raise Constraint_Error;
  end;

  type T is null record;

end Lto13_Pkg;