gdb/testsuite/gdb.ada/array_return/pck.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

package body Pck is

   function Create_Small return Data_Small is
   begin
      return (others => 1);
   end Create_Small;

   function Create_Large return Data_Large is
   begin
      return (others => 2);
   end Create_Large;

end Pck;