diff options
Diffstat (limited to 'exception_test3')
-rw-r--r-- | exception_test3/Makefile | 4 | ||||
-rw-r--r-- | exception_test3/exception_test3.scn | 3 | ||||
-rw-r--r-- | exception_test3/exceptiontest3.adb | 7 |
3 files changed, 13 insertions, 1 deletions
diff --git a/exception_test3/Makefile b/exception_test3/Makefile index 9eb4917..6936eda 100644 --- a/exception_test3/Makefile +++ b/exception_test3/Makefile @@ -1,4 +1,8 @@ # +# Exception Test #3 +# +# $Id$ +# # See README.Makefiles in the main ada-examples directory. # diff --git a/exception_test3/exception_test3.scn b/exception_test3/exception_test3.scn new file mode 100644 index 0000000..23e3b2c --- /dev/null +++ b/exception_test3/exception_test3.scn @@ -0,0 +1,3 @@ +*** Exception Test 3 *** +Caught Constraint_Error -- inner +*** END OF Exception Test 3 *** diff --git a/exception_test3/exceptiontest3.adb b/exception_test3/exceptiontest3.adb index be4bd1b..3711008 100644 --- a/exception_test3/exceptiontest3.adb +++ b/exception_test3/exceptiontest3.adb @@ -1,9 +1,13 @@ ---BEGIN exceptiontest3.adb +-- +-- $Id$ +-- + with Ada.Text_IO; use Ada.Text_IO; procedure ExceptionTest3 is function F return Boolean is begin + Put_Line ("*** Exception Test 3 ***"); raise Constraint_Error; return True; end F; @@ -17,6 +21,7 @@ begin exception when Constraint_Error => Put_Line ("Caught Constraint_Error -- inner"); + Put_Line ("*** END OF Exception Test 3 ***"); when others => Put_Line ("not ok wrong exception"); end; |