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


1
2
3
4
5
6
7
8
9
10

with Pck; use Pck;

procedure P is
   Small : Data_Small;
   Large : Data_Large;
begin
   Small := Create_Small;
   Large := Create_Large;
   Small (1) := Large (1);
end P;