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_test2 | |
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_test2')
-rw-r--r-- | exception_test2/Makefile | 5 | ||||
-rw-r--r-- | exception_test2/exception_test2.scn | 3 | ||||
-rw-r--r-- | exception_test2/exceptiontest2.adb | 7 |
3 files changed, 14 insertions, 1 deletions
diff --git a/exception_test2/Makefile b/exception_test2/Makefile index faa9f1d..0bd57a6 100644 --- a/exception_test2/Makefile +++ b/exception_test2/Makefile @@ -1,7 +1,12 @@ # +# Exception Test #3 +# +# $Id$ +# # See README.Makefiles in the main ada-examples directory. # + PROGRAM=exceptiontest2 include $(RTEMS_MAKEFILE_PATH)/Makefile.inc diff --git a/exception_test2/exception_test2.scn b/exception_test2/exception_test2.scn new file mode 100644 index 0000000..ebbf74c --- /dev/null +++ b/exception_test2/exception_test2.scn @@ -0,0 +1,3 @@ +*** Exception Test 2 *** +Caught Constraint_Error -- inner +*** END OF Exception Test 2 *** 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 => |