Fix 32-bit failure in array_long_idx.exp

Testing on the AdaCore-internal equivalent to array_long_idx.exp
showed that it failed on 32-bit targets.  This patch fixes the problem
by arranging to use types that aren't target-dependent.
This commit is contained in:
Tom Tromey
2025-09-12 10:59:20 -06:00
parent 765ce06477
commit 503fc47607

View File

@@ -17,7 +17,10 @@ with Pck; use Pck;
procedure Main is
type My_Array is array (Integer range <>, Long_Integer range <>) of Integer;
type Shorter_Integer is range -2147483648 .. 2147483647;
type Longer_Integer is range -9223372036854775808 .. 9223372036854775807;
type My_Array is array (Shorter_Integer range <>,
Longer_Integer range <>) of Integer;
type My_Reg_Acc is access all My_Array;