gdb/testsuite/gdb.ada/array_return/p.adb

   1 with Pck; use Pck;
   2
   3 procedure P is
   4    Small : Data_Small;
   5    Large : Data_Large;
   6 begin
   7    Small := Create_Small;
   8    Large := Create_Large;
   9    Small (1) := Large (1);
  10 end P;