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