gdb/testsuite/gdb.ada/huge/pck.adb

   1 --  Copyright 2023-2024 Free Software Foundation, Inc.
   2 --
   3 --  This program is free software; you can redistribute it and/or modify
   4 --  it under the terms of the GNU General Public License as published by
   5 --  the Free Software Foundation; either version 3 of the License, or
   6 --  (at your option) any later version.
   7 --
   8 --  This program is distributed in the hope that it will be useful,
   9 --  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 --  GNU General Public License for more details.
  12 --
  13 --  You should have received a copy of the GNU General Public License
  14 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 package body Pck is
  17    subtype Small_Int is Integer range 0 .. 7;
  18    type My_Int is range -2147483648 .. 2147483647;
  19
  20 #if CRASHGDB = 16
  21     type Index is range 1 .. 16;
  22 #end if;
  23 #if CRASHGDB = 32
  24     type Index is range 1 .. 32;
  25 #end if;
  26 #if CRASHGDB = 64
  27     type Index is range 1 .. 64;
  28 #end if;
  29 #if CRASHGDB = 128
  30     type Index is range 1 .. 128;
  31 #end if;
  32 #if CRASHGDB = 256
  33     type Index is range 1 .. 256;
  34 #end if;
  35 #if CRASHGDB = 512
  36     type Index is range 1 .. 512;
  37 #end if;
  38 #if CRASHGDB = 1024
  39     type Index is range 1 .. 1024;
  40 #end if;
  41 #if CRASHGDB = 2048
  42     type Index is range 1 ..  2048;
  43 #end if;
  44 #if CRASHGDB = 4096
  45     type Index is range 1 .. 4096;
  46 #end if;
  47 #if CRASHGDB = 8192
  48     type Index is range 1 .. 8192;
  49 #end if;
  50 #if CRASHGDB = 16384
  51     type Index is range 1 .. 16384;
  52 #end if;
  53 #if CRASHGDB = 32768
  54     type Index is range 1 .. 32768;
  55 #end if;
  56 #if CRASHGDB = 65536
  57     type Index is range 1 .. 65536;
  58 #end if;
  59 #if CRASHGDB = 131072
  60     type Index is range 1 .. 131072;
  61 #end if;
  62 #if CRASHGDB = 262144
  63     type Index is range 1 .. 262144;
  64 #end if;
  65 #if CRASHGDB = 524288
  66     type Index is range 1 .. 524288;
  67 #end if;
  68 #if CRASHGDB = 1048576
  69     type Index is range 1 .. 1048576;
  70 #end if;
  71 #if CRASHGDB = 2097152
  72     type Index is range 1 .. 2097152;
  73 #end if;
  74
  75    type My_Int_Array is
  76      array (Index) of My_Int;
  77    Arr : My_Int_Array := (others => 0);
  78
  79    type My_Packed_Array is array (Index) of Small_Int;
  80    pragma Pack (My_Packed_Array);
  81
  82    Packed_Arr : My_Packed_Array := (others => 0);
  83
  84    procedure Foo is
  85    begin
  86       null;
  87    end Foo;
  88 end Pck;