[binutils-gdb] Update more tests for gnat-llvm

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=a218fdeb64ca42d795648687c1197b167bee88b3

commit a218fdeb64ca42d795648687c1197b167bee88b3
Author: Tom Tromey <[email protected]>
Date:   Fri May 1 08:01:54 2026 -0600

    Update more tests for gnat-llvm
    
    I found a few more tests where a simple change would preserve the
    behavior of the test while also making it pass with gnat-llvm.
    
    As this is Ada and gnat-llvm-specific, I am checking it in.

Diff:
---
 gdb/testsuite/gdb.ada/aliased_array/foo.adb                    |  4 ++++
 gdb/testsuite/gdb.ada/str_chars/foo.adb                        | 10 ++--------
 .../gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb        |  6 ++++++
 3 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/gdb/testsuite/gdb.ada/aliased_array/foo.adb b/gdb/testsuite/gdb.ada/aliased_array/foo.adb
index 11a84c32f0a..759533fd561 100644
--- a/gdb/testsuite/gdb.ada/aliased_array/foo.adb
+++ b/gdb/testsuite/gdb.ada/aliased_array/foo.adb
@@ -16,6 +16,10 @@
 with Pck; use Pck;
 procedure Foo is
    BT : aliased Bounded := New_Bounded (Low => 1, High => 3);
+   BT_First : Integer := BT'First;
+   BT_Last : Integer := BT'Last;
 begin
    Do_Nothing (BT'Address); -- STOP
+   Do_Nothing (BT_First'Address);
+   Do_Nothing (BT_Last'Address);
 end Foo;
diff --git a/gdb/testsuite/gdb.ada/str_chars/foo.adb b/gdb/testsuite/gdb.ada/str_chars/foo.adb
index 019e782d6ce..81cd6f50339 100644
--- a/gdb/testsuite/gdb.ada/str_chars/foo.adb
+++ b/gdb/testsuite/gdb.ada/str_chars/foo.adb
@@ -14,13 +14,7 @@
 --  along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 procedure Foo is
-
-   procedure Blah (Arg : String) is
-   begin
-     null; -- STOP
-   end;
-
+   Arg : String := "abcdefghijklmnopqrstuvwxyz";
 begin
-
-   Blah ("abcdefghijklmnopqrstuvwxyz");
+   null;                        --  STOP
 end Foo;
diff --git a/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb b/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb
index 14375a5a7c2..120dc3d3d4d 100644
--- a/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb
+++ b/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb
@@ -21,10 +21,16 @@ procedure Foo_n207_004 is
    Cold : Variable_Table := (Green => False, Blue => True, White => True);
    Vars : Variable_Table :=  New_Variable_Table (Low => Red, High => Green);
    PT_Full : Full_PT := (False, True, False, True, False);
+
+   Vars_First : Color := Vars'First;
+   Vars_Last : Color := Vars'Last;
+
 begin
    Do_Nothing (Full'Address);  -- STOP
    Do_Nothing (Prim'Address);
    Do_Nothing (Cold'Address);
    Do_Nothing (Vars'Address);
+   Do_Nothing (Vars_First'Address);
+   Do_Nothing (Vars_Last'Address);
    Do_Nothing (PT_Full'Address);
 end Foo_n207_004;