← Back to branch summary

~ubuntu-branches/ubuntu/raring/adacontrol/raring

« back to all changes in this revision

Viewing changes to test/t_reduceable_scope.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2010-03-13 14:01:37 UTC
  • mfrom: (1.1.5 upstream) (9.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20100313140137-50ia1bbb5qld97fd
Tags: 1.12~b1-1
http://bugs.debian.org/566061
New upstream beta version.  Really closes: #566061 even on i386.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_reduceable_scope.adb
18
18
   end For_Access;
19
19
 
20
20
   package Pack2 is  -- Movable to P
21
 
      I : Integer;   -- Movable to body
 
21
      I  : Integer;   -- Movable to body
 
22
      E1 : exception; -- Movable to body
22
23
   end Pack2;
23
24
   package body Pack2 is
 
25
      E2 : exception; -- OK (movable to P, but exceptions are only to_body)
24
26
      procedure P is -- Not movable
25
27
      begin
26
28
         Pack2.I := 1;
 
29
         raise E1;
 
30
         raise E2;
27
31
      end P;
28
32
   begin
29
33
      P;