[binutils-gdb] Fix type of imported variable for arraydim.exp

https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3Df8061f0edbeb=
7f103b6764844a771d800846af32

commit f8061f0edbeb7f103b6764844a771d800846af32
Author: Tom Tromey <[email protected]>
Date:   Wed Jul 29 08:06:06 2026 -0600

    Fix type of imported variable for arraydim.exp
   =20
    The test code for gdb.ada/arraydim.exp imports a variable using a
    dummy type.  Then the test tries to print the type of this variable.
    This works ok with GCC, because the import is emitted as a
    declaration; but this fails with gnat-llvm, where a definition is
    emitted.
   =20
    This seems to be a test bug to me.  This patch fixes the problem by
    using the correct type here.
   =20
    Reviewed-By: Tom de Vries <[email protected]>

Diff:
---
 gdb/testsuite/gdb.ada/arraydim.exp     | 7 ++++++-
 gdb/testsuite/gdb.ada/arraydim/foo.adb | 7 ++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/gdb/testsuite/gdb.ada/arraydim.exp b/gdb/testsuite/gdb.ada/arr=
aydim.exp
index 7b84a7af9b7..815a91ffa82 100644
--- a/gdb/testsuite/gdb.ada/arraydim.exp
+++ b/gdb/testsuite/gdb.ada/arraydim.exp
@@ -52,8 +52,13 @@ gdb_test "print m'first(3)" " =3D 4"
 gdb_test "print m'last(3)" " =3D 6"
 gdb_test "print m'length(3)" " =3D 3"
=20
+# With GCC the test shows "int" as the element type, but with
+# gnat-llvm it shows "integer"; both of these are reasonable enough so
+# we accept either.  The difference here is because GCC emits a
+# declaration in the DWARF for foo.o, but gnat-llvm emits a
+# definition.
 gdb_test "ptype global_3dim_for_gdb_testing" \
-    "array \\(0 \\.\\. 0, 0 \\.\\. 1, 0 \\.\\. 2\\) of int"
+    [quotemeta "array (0 .. 0, 0 .. 1, 0 .. 2) of @/(int|integer)/"]
=20
 gdb_test "print global_3dim_for_gdb_testing'first" " =3D 0"
 gdb_test "print global_3dim_for_gdb_testing'last" " =3D 0"
diff --git a/gdb/testsuite/gdb.ada/arraydim/foo.adb b/gdb/testsuite/gdb.ada=
/arraydim/foo.adb
index 86204956d00..8da63e1af93 100644
--- a/gdb/testsuite/gdb.ada/arraydim/foo.adb
+++ b/gdb/testsuite/gdb.ada/arraydim/foo.adb
@@ -18,11 +18,8 @@ procedure Foo is
    type Multi is array (1 .. 1, 2 .. 3, 4 .. 6) of Integer;
    M : Multi :=3D (others =3D> (others =3D> (others =3D> 0)));
=20
-   --  Use a fake type for importing our C multi-dimensional array.
-   --  It's only to make sure the C unit gets linked in, regardless
-   --  of possible optimizations.
-   type Void_Star is access integer;
-   E : Void_Star;
+   type C_Multi is array (0 .. 0, 0 .. 1, 0 .. 2) of Integer;
+   E : C_Multi;
    pragma Import (C, E, "global_3dim_for_gdb_testing");
 begin
    Do_Nothing (M'Address);  -- STOP