diff options
Diffstat (limited to 'exception_test2/exceptiontest2.adb')
-rw-r--r-- | exception_test2/exceptiontest2.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/exception_test2/exceptiontest2.adb b/exception_test2/exceptiontest2.adb index 822ee1a..337d571 100644 --- a/exception_test2/exceptiontest2.adb +++ b/exception_test2/exceptiontest2.adb @@ -1,9 +1,13 @@ ---BEGIN exceptiontest2.adb +-- +-- $Id$ +-- + with Ada.Text_IO; use Ada.Text_IO; procedure ExceptionTest2 is function F return Boolean is begin + Put_Line ("*** Exception Test 2 ***"); raise Constraint_Error; return True; end F; @@ -17,6 +21,7 @@ begin exception when others => Put_Line ("Caught Constraint_Error -- inner"); + Put_Line ("*** END OF Exception Test 2 ***"); end; exception when others => |