[gcc r16-1158] ada: Add Ghost aspect to Lo in s-arit32.adb

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:4405925143b620b9c18889cc79433d90100416d7

commit r16-1158-g4405925143b620b9c18889cc79433d90100416d7
Author: Aleksandra Pasek <pa...@adacore.com>
Date:   Mon Feb 3 18:09:36 2025 +0000

    ada: Add Ghost aspect to Lo in s-arit32.adb
    
    gcc/ada/ChangeLog:
    
            * libgnat/s-arit32.adb: Add Ghost aspect to Lo.

Diff:
---
 gcc/ada/libgnat/s-arit32.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/ada/libgnat/s-arit32.adb b/gcc/ada/libgnat/s-arit32.adb
index 5172d1dba0e6..eb4e6e5590f6 100644
--- a/gcc/ada/libgnat/s-arit32.adb
+++ b/gcc/ada/libgnat/s-arit32.adb
@@ -96,7 +96,8 @@ is
    --  Convert absolute value of X to unsigned. Note that we can't just use
    --  the expression of the Else since it overflows for X = Int32'First.
 
-   function Lo (A : Uns64) return Uns32 is (Uns32 (A and (2 ** 32 - 1)));
+   function Lo (A : Uns64) return Uns32 is (Uns32 (A and (2 ** 32 - 1)))
+   with Ghost;
    --  Low order half of 64-bit value
 
    function Hi (A : Uns64) return Uns32 is (Uns32 (Shift_Right (A, 32)));