1 files changed, 6 insertions, 1 deletions
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;