1 -- This file is an Ada file containing test data
2 -- for etags (Ada83 and Ada95 support).
5 type Private_T is private;
23 procedure Pkg1_Proc2 (I : Integer);
25 function Pkg1_Func1 return Boolean;
27 function Pkg1_Func2 (Ijk : Integer; Z : Integer) return Natural;
31 procedure Pkg1_Pkg1_Proc1;
34 task type Task_Type is
36 entry Entry2 (I : Integer);
48 procedure Pkg1_Proc1 is
53 package body Inner1 is
54 procedure Private_T is
60 package body Inner2 is
61 task body Private_T is
68 task body Task_Type is
75 accept Entry2 (I : Integer) do
82 procedure Pkg1_Proc2 (I : Integer) is
88 function Pkg1_Func1 return Boolean is separate;
90 function Pkg1_Func2 (Ijk : Integer; Z : Integer) return Natural is
96 package body Pkg1_Pkg1 is separate;
100 package body Pkg1_Pkg1 is
101 procedure Pkg1_Pkg1_Proc1 is
107 function Pkg1_Func1 return Boolean is
111 -- from now on, this is Ada 95 specific.
116 package Truc.Bidule is
117 use type Pkg1.Public_T;
131 protected type Machin_T is
138 package body Truc.Bidule is
139 protected body Bidule is
140 entry Basar when Ok is
146 protected body Machin_T is
147 entry Truc when Ok is