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;