Changeset 964021d in ada-examples


Ignore:
Timestamp:
Sep 17, 2009, 6:13:34 PM (10 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
ada-examples-4-10-branch, master
Children:
57716a5
Parents:
789d0e8
Message:

2009-09-17 Joel Sherrill <joel.sherrill@…>

  • Makefile, exception_test.adb: Make follow standard RTEMS test output format. Add output screens where appropriate.
  • exception_test.scn: New file.
Location:
exception_test
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • exception_test/ChangeLog

    r789d0e8 r964021d  
     12009-09-17      Joel Sherrill <joel.sherrill@oarcorp.com>
     2
     3        * Makefile, exception_test.adb: Make follow standard RTEMS test output
     4        format. Add output screens where appropriate.
     5        * exception_test.scn: New file.
     6
    172009-09-17      Joel Sherrill <joel.sherrill@oarcorp.com>
    28
  • exception_test/Makefile

    r789d0e8 r964021d  
    11#
    2 #  Makefile for Ada Dump URL example
     2#  Exception Test #1
     3#
     4#  $Id$
    35#
    46#  See README.Makefiles in the main ada-examples directory.
    57#
     8
    69
    710PROGRAM=exception_test
  • exception_test/exception_test.adb

    r789d0e8 r964021d  
    88begin
    99   begin
     10      Put_Line ("*** Exception Test 1 ***");
    1011      Put_Line ("Raising Constraint_Error");
    1112      raise Constraint_Error;
     13      --  Do not get here
    1214   exception
    1315      when others =>
    1416         Put_Line ("Caught Constraint_Error -- inner");
     17         Put_Line ("*** END OF Exception Test 1 ***");
    1518   end;
    1619exception
Note: See TracChangeset for help on using the changeset viewer.