Minor Ada test fix for gnat-llvm

gdb.ada/char_enum_overload.exp fails because LLVM optimizes away the
necessary function parameters.  Adding a couple of calls to Do_Nothing
makes this test work.

diff --git a/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb b/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
index 89725140684a6ad714ca861ee4f96c5395ba6ec9..42ea847fc6fcb42d4434b89bce801f8203103de9 100644 (file)
--- a/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
+++ b/gdb/testsuite/gdb.ada/char_enum_overload/pck.adb
@@ -15,12 +15,15 @@
 
 package body Pck is
    procedure Overloaded (Value : Global_Enum_Type) is
+      X : Global_Enum_Type := Value;
    begin
-      null;
+      Do_Nothing (X'Address);
    end Overloaded;
 
    function Overloaded (Value : Character) return Global_Enum_Type is
+      X : Character := Value;
    begin
+      Do_Nothing (X'Address);
       return 'Y';
    end Overloaded;