gcc/testsuite/gnat.dg/volatile11_pkg.adb

   1 package body 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)  is
   8   begin
   9     Output8 := B;
  10     Output7 := Input = 7;
  11     Output6 := Input = 6;
  12     Output5 := Input = 5;
  13     Output4 := Input = 4;
  14     Output3 := Input = 3;
  15     Output2 := Input = 2;
  16     Output1 := Input = 1;
  17   end Bit_Test;
  18
  19   function F return Ptr is
  20   begin
  21     B := True;
  22     return B'Access;
  23   end;
  24
  25 end Volatile11_Pkg;