11 --------------------------------------------------
12 -- Call to call, instantiation, task activation --
13 --------------------------------------------------
15 function Elaborator_1
return Boolean;
16 function Elaborator_2
return Boolean;
18 procedure Suppressed_Call_1
;
20 pragma Warnings
("L");
21 procedure Suppressed_Call_2
;
22 pragma Warnings
("l");
24 -----------------------------------------------------------
25 -- Instantiation to call, instantiation, task activation --
26 -----------------------------------------------------------
28 function Elaborator_3
return Boolean;
31 package Suppressed_Generic
is
33 end Suppressed_Generic
;
35 -------------------------------------------------------------
36 -- Task activation to call, instantiation, task activation --
37 -------------------------------------------------------------
39 function Elaborator_4
return Boolean;
40 task type Suppressed_Task
;