← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/adacontrol/jaunty

« back to all changes in this revision

Viewing changes to test/t_naming_convention.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2008-04-27 15:25:59 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20080427152559-qrlic533a1x02flu
Tags: 1.8r8-1

* New upstream version.
* debian/adacontrol.gpr: delete; use upstream's project file instead.
* patches/build.patch: patch upstream's project file to change Object_Dir
  and Exec_Dir.
* Build-depend on asis 2007 and gnat-4.3.
* Add support for mips, mipsel and ppc64.
* Build and provide ptree.
* ptree.1: new.
* adactl.1: update; new options and rules are available.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/t_naming_convention.adb
107
107
   procedure New_Proc is new Proc_Gen; -- OK
108
108
 
109
109
   generic procedure Ren_Gen_Proc renames Gen_Proc;
110
 
   generic procedure Ren_Proc_Gen renames Proc_Gen; --OK
 
110
   generic procedure Proc_Ren_Gen renames Proc_Gen; --OK
111
111
   procedure Ren_Bad_Gen renames Bad_Gen;
112
112
   procedure Ren_New_Proc renames New_Proc; --OK
113
113
 
114
 
   -- Protected
 
114
   generic
 
115
   function SP_Func_GEN return Int_Type;  --OK
 
116
   function SP_Func_GEN return Int_Type is
 
117
   begin
 
118
      return 1;
 
119
   end SP_Func_GEN;
 
120
 
 
121
   generic
 
122
   function proc_Func_GEN return Int_Type;
 
123
   function proc_Func_GEN return Int_Type is
 
124
   begin
 
125
      return 1;
 
126
   end proc_Func_GEN;
 
127
 
 
128
   -- Protected and tasks
115
129
   protected Prot is
116
130
      procedure P;
 
131
      procedure P_Gen;
117
132
      procedure Protec_P; -- OK
118
133
   private
119
134
      Field : Boolean;
121
136
   end Prot;
122
137
   protected body Prot is
123
138
      procedure P is begin null; end;
 
139
      procedure P_Gen is begin null; end;
124
140
      procedure Protec_P is begin null; end;
125
141
   end Prot;
126
142
 
184
200
 
185
201
   C1    : Character renames Obj_A.Rf_1 (1);
186
202
   Rf_C1 : Character renames Obj_A.Rf_1 (1); -- OK
187
 
   -- Tests commented out due to ASIS bug:
188
 
   -- C2    : Character renames Obj_B.Rf_1 (1);
189
 
   -- Rf_C2 : Character renames Obj_B.Rf_1 (1);
190
 
   -- C3    : Character renames Obj_C.Rf_1 (1);
191
 
   -- Rf_C3 : Character renames Obj_C.Rf_1 (1);
 
203
   C2    : Character renames Obj_B.Rf_1 (1);
 
204
   Rf_C2 : Character renames Obj_B.Rf_1 (1);
 
205
   C3    : Character renames Obj_C.Rf_1 (1);
 
206
   Rf_C3 : Character renames Obj_C.Rf_1 (1);
 
207
 
 
208
   CE      : exception renames Constraint_Error;
 
209
   CE_ExcR : exception renames Constraint_Error; -- OK
192
210
 
193
211
      -- Subtypes and derived types
194
212
   subtype ST1 is My_Task;