← Back to branch summary

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

« back to all changes in this revision

Viewing changes to test/t_not_selected_name.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_not_selected_name.adb
1
 
with X_Not_Selected_Name, X_Not_Selected_Name.Child;
 
1
with X_Not_Selected_Name, X_Not_Selected_Name.Child, X_Not_Selected_Name_Gen;
2
2
procedure T_Not_Selected_Name is
3
 
   use X_Not_Selected_Name;
4
 
   use Pack;
 
3
   Other_N : Integer renames X_Not_Selected_Name.N;
 
4
   package Inst is new X_Not_Selected_Name_Gen;
5
5
begin
6
 
   X_Not_Selected_Name.N := 1;
7
 
   N := 1;
8
 
 
9
 
   X_Not_Selected_Name.Pack.U := 1;
10
 
   Pack.U := 1;
11
 
   U := 1;
12
 
 
13
 
   X_Not_Selected_Name.C := 1;
14
 
   C := 1;
15
 
 
16
 
   X_Not_Selected_Name.F := 1;
17
 
   F := 1;
 
6
   declare
 
7
      use X_Not_Selected_Name;
 
8
      use Pack;                          -- Pack
 
9
      Yet_Another_N : Integer renames N; -- N
 
10
   begin
 
11
      X_Not_Selected_Name.N := 1;
 
12
      N := 1;                            -- N
 
13
 
 
14
      X_Not_Selected_Name.Pack.U := 1;
 
15
      Pack.U := 1;                       -- Pack
 
16
      U := 1;                            -- U
 
17
 
 
18
      X_Not_Selected_Name.C := 1;
 
19
      C := 1;                            -- C
 
20
 
 
21
      X_Not_Selected_Name.F := 1;
 
22
      F := 1;                            -- F
 
23
   end;
 
24
 
 
25
   Other_N := 1;                         -- Ok
 
26
 
 
27
   declare
 
28
      package Other_Inst renames Inst;
 
29
      use Other_Inst;
 
30
   begin
 
31
      Other_Inst.N := 1;
 
32
      N := 1;                            -- N
 
33
      Inst.G := 1;
 
34
      G := 1;                            -- G
 
35
   end;
18
36
 
19
37
end T_Not_Selected_Name;