From: Tom Tromey <tromey@adacore.com>
Date: Tue, 16 Dec 2025 21:34:30 +0000 (-0700)
Subject: Minor test fix for gnat-llvm
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b6ac9fb3e265c36701f5cfae944807641a306b02;p=thirdparty%2Fbinutils-gdb.git

Minor test fix for gnat-llvm

This patch fixes a spot in the gdb test suite where gnat-llvm seems to
emit slightly better DWARF than GNAT.
---

diff --git a/gdb/testsuite/gdb.ada/packed_record_2.exp b/gdb/testsuite/gdb.ada/packed_record_2.exp
index af2509b73b8..14e03c1e63b 100644
--- a/gdb/testsuite/gdb.ada/packed_record_2.exp
+++ b/gdb/testsuite/gdb.ada/packed_record_2.exp
@@ -41,13 +41,14 @@ gdb_test "print spr.discr" " = 3"
 
 # See PR ada/32880 -- gdb should probably print array (1 .. 3) here,
 # but instead shows array (<>).  However as this isn't totally
-# relevant to this test, we just accept it.
+# relevant to this test, we just accept it.  Also, while gnat-llvm
+# successfully uses the type names, GNAT just emits the ranges here.
 gdb_test "ptype spr" \
     [multi_line \
 	 "type = tagged record" \
-	 "    discr: range 1 .. 8;" \
-	 "    field: range -7 .. -4;" \
-	 "    array_field: array \\(<>\\) of exam.small <packed: 2-bit elements>;" \
+	 "    discr: (range 1 .. 8|range_int);" \
+	 "    field: (range -7 .. -4|small);" \
+	 "    array_field: array \\(<>\\) of (exam.)?small <packed: 2-bit elements>;" \
 	 "end record"]
 
 gdb_test_multiple "print sc" "" {