gcc/testsuite/gnat.dg/volatile10_pkg.ads

   1 package Volatile10_Pkg is
   2
   3    type Num is mod 2**9;
   4
   5    type Rec is record
   6       B1  : Boolean;
   7       N1  : Num;
   8       B2  : Boolean;
   9       N2  : Num;
  10       B3  : Boolean;
  11       B4  : Boolean;
  12       B5  : Boolean;
  13       B6  : Boolean;
  14       B7  : Boolean;
  15       B8  : Boolean;
  16       B9  : Boolean;
  17       B10 : Boolean;
  18       B11 : Boolean;
  19       B12 : Boolean;
  20       B13 : Boolean;
  21       B14 : Boolean;
  22    end record;
  23    pragma Pack (Rec);
  24    for Rec'Size use 32;
  25    pragma Volatile(Rec);
  26
  27    function F return Rec;
  28
  29 end Volatile10_Pkg;