gcc/testsuite/gnat.dg/volatile11_pkg.ads

   1 package Volatile11_Pkg is
   2
   3    procedure Bit_Test(Input : in Integer;
   4                       Output1 : out Boolean; Output2 : out Boolean;
   5                       Output3 : out Boolean; Output4 : out Boolean;
   6                       Output5 : out Boolean; Output6 : out Boolean;
   7                       Output7 : out Boolean; Output8 : out Boolean);
   8
   9    type Ptr is access all Boolean;
  10
  11    B : aliased Boolean := False;
  12
  13    function F return Ptr;
  14
  15 end Volatile11_Pkg;