source: ada-examples/exception_test/exception_test.adb @ c29fdac

ada-examples-4-10-branchada-examples-4-9-branch
Last change on this file since c29fdac was c29fdac, checked in by Joel Sherrill <joel.sherrill@…>, on 02/06/08 at 18:24:17

2008-02-06 Joel Sherrill <joel.sherrill@…>

  • ChangeLog?, Makefile, exception_test.adb: New files.
  • Property mode set to 100644
File size: 376 bytes
Line 
1--
2-- $Id$
3--
4
5with Ada.Text_IO; use Ada.Text_IO;
6
7procedure ExceptionTest is
8begin
9   begin
10      Put_Line ("Raising Constraint_Error");
11      raise Constraint_Error;
12   exception
13      when others =>
14         Put_Line ("Caught Constraint_Error -- inner");
15   end;
16exception
17   when others =>
18     Put_Line ("Caught Constraint_Error -- outer -- not OK");
19end ExceptionTest;
20
Note: See TracBrowser for help on using the repository browser.