gcc/testsuite/gnat.dg/elab5_pkg.ads

   1 package 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;
  47 end Elab5_Pkg;