gcc/testsuite/gnat.dg/specs/aggr5.ads

   1 -- { dg-do compile }
   2
   3 pragma Restrictions (No_Elaboration_Code);
   4
   5 package Aggr5 is
   6
   7   type R is record
   8     C : Character;
   9     F : Float;
  10   end record;
  11
  12   for R use record
  13     C at 0 range 0 .. 7;
  14     F at 1 range 0 .. 31;
  15   end record;
  16
  17   My_R : R := (C => 'A', F => 1.0);
  18
  19 end Aggr5;