2 -- { dg-options "-gnatws" }
4 with discr3; use discr3;
5 with Text_IO; use Text_IO;
11 when Constraint_Error => null;
12 when others => Put_Line ("Wrong Exception raised");
16 V2 := S2(V1(V1'Range));
17 Put_Line ("No exception raised - 2");
19 when Constraint_Error => null;
20 when others => Put_Line ("Wrong Exception raised");
25 Put_Line ("No exception raised - 3");
27 when Constraint_Error => null;
28 when others => Put_Line ("Wrong Exception raised");