1package Elab5_Pkg is
2   procedure ABE_Call;
3
4   generic
5   package ABE_Gen is
6      procedure Force_Body;
7   end ABE_Gen;
8
9   task type ABE_Task;
10
11   --------------------------------------------------
12   -- Call to call, instantiation, task activation --
13   --------------------------------------------------
14
15   function Elaborator_1 return Boolean;
16   function Elaborator_2 return Boolean;
17   function Elaborator_3 return Boolean;
18
19   procedure Suppressed_Call_1;
20
21   pragma Warnings ("L");
22   procedure Suppressed_Call_2;
23   pragma Warnings ("l");
24
25   procedure Suppressed_Call_3;
26   pragma Warnings (Off, Suppressed_Call_3);
27
28   -----------------------------------------------------------
29   -- Instantiation to call, instantiation, task activation --
30   -----------------------------------------------------------
31
32   function Elaborator_4 return Boolean;
33
34   generic
35   package Suppressed_Generic is
36      procedure Force_Body;
37   end Suppressed_Generic;
38
39   -------------------------------------------------------------
40   -- Task activation to call, instantiation, task activation --
41   -------------------------------------------------------------
42
43   function Elaborator_5 return Boolean;
44   function Elaborator_6 return Boolean;
45
46   task type Suppressed_Task;
47end Elab5_Pkg;
48