gcc/testsuite/gnat.dg/elab4_pkg.ads

   1 package Elab4_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
  18    procedure Suppressed_Call_1;
  19
  20    pragma Warnings ("L");
  21    procedure Suppressed_Call_2;
  22    pragma Warnings ("l");
  23
  24    -----------------------------------------------------------
  25    -- Instantiation to call, instantiation, task activation --
  26    -----------------------------------------------------------
  27
  28    function Elaborator_3 return Boolean;
  29
  30    generic
  31    package Suppressed_Generic is
  32       procedure Force_Body;
  33    end Suppressed_Generic;
  34
  35    -------------------------------------------------------------
  36    -- Task activation to call, instantiation, task activation --
  37    -------------------------------------------------------------
  38
  39    function Elaborator_4 return Boolean;
  40    task type Suppressed_Task;
  41 end Elab4_Pkg;