gcc/testsuite/gnat.dg/opt81.ads

   1 package Opt81 is
   2
   3   type String_Access is access String;
   4
   5   type Rec is record
   6     A : String_Access;
   7   end record;
   8
   9   for Rec use record
  10     A at 0 range 0 .. (Standard'Word_Size - 1);
  11   end record;
  12
  13   procedure Copy(From, To : Rec);
  14
  15 end Opt81;