diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:41 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-09-17 18:13:41 +0000 |
commit | 7dbdc9876422d675e06c4e43d2a186c1c07ecd63 (patch) | |
tree | baf813e082e3acae20c8268f988d5da1b04fb07b /exception_test3 | |
parent | 2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com> (diff) | |
download | ada-examples-7dbdc9876422d675e06c4e43d2a186c1c07ecd63.tar.bz2 |
2009-09-17 Joel Sherrill <joel.sherrill@oarcorp.com>
* Makefile.shared, networkconfig-qemu.h, cpuuse/Makefile,
empty/Makefile, empty/empty.adb, exception_test2/Makefile,
exception_test2/exceptiontest2.adb, exception_test3/Makefile,
exception_test3/exceptiontest3.adb, hello_via_task/Makefile,
hello_via_task/hello.adb, irq_test_c/Makefile: Make follow standard
RTEMS test output format. Add output screens where appropriate.
* exception_test2/exception_test2.scn,
exception_test3/exception_test3.scn,
hello_via_task/hello_via_task.scn: New files.
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; |