1
procedure T_when_others_null is
3
type Atype is (a,b,c,d,e);
4
type Btype is range 1 .. 10;
9
----------------------------------Test Cases--------------------------------
10
-- Nesting (N = no nesting, C = nested with case, E = nested with exception)
11
-- with/without means with/without a "when others => null;"
12
----------------------------------------------------------------------------
13
-- Type N with N without C with C without E with E without
14
----------------------------------------------------------------------------
18
----------------------------------------------------------------------------
20
function X return Atype is
29
function Y return Atype is
109
when Constraint_Error =>
144
when Constraint_Error =>
159
end T_when_others_null;