diff options
Diffstat (limited to 'exception_test/exception_test.adb')
| -rw-r--r-- | exception_test/exception_test.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/exception_test/exception_test.adb b/exception_test/exception_test.adb index 47fe592..1a6dcdf 100644 --- a/exception_test/exception_test.adb +++ b/exception_test/exception_test.adb @@ -7,11 +7,14 @@ with Ada.Text_IO; use Ada.Text_IO; procedure ExceptionTest is begin begin + Put_Line ("*** Exception Test 1 ***"); Put_Line ("Raising Constraint_Error"); raise Constraint_Error; + -- Do not get here exception when others => Put_Line ("Caught Constraint_Error -- inner"); + Put_Line ("*** END OF Exception Test 1 ***"); end; exception when others => |