From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Wed, 25 Sep 2024 16:51:48 +0000 (+0200)
Subject: Fix testsuite failure on 32-bit targets.
X-Git-Tag: basepoints/gcc-16~5681
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3308e82480169a4f6fdf75322cfbcbc765f21f7c;p=thirdparty%2Fgcc.git

Fix testsuite failure on 32-bit targets.

gcc/testsuite/ChangeLog:

	* gfortran.dg/unsigned_25.f90: Change KIND=16 to KIND=8.
---

diff --git a/gcc/testsuite/gfortran.dg/unsigned_25.f90 b/gcc/testsuite/gfortran.dg/unsigned_25.f90
index f6144988d82..0cd86b093bb 100644
--- a/gcc/testsuite/gfortran.dg/unsigned_25.f90
+++ b/gcc/testsuite/gfortran.dg/unsigned_25.f90
@@ -27,9 +27,9 @@ contains
          5u, uint(-6), 7u, uint(-8), 9u],[3,3])
     unsigned, parameter :: v(3,3) = 1u - u
     unsigned, parameter :: w(3,3) = matmul(u,v)
-    integer(kind=16), dimension(3,3), parameter :: &
-         i = int(u,16), j = int(v,16)
-    integer(kind=16), dimension(3,3) :: k = matmul(i,j)
+    integer(kind=8), dimension(3,3), parameter :: &
+         i = int(u,8), j = int(v,8)
+    integer(kind=8), dimension(3,3) :: k = matmul(i,j)
     if (any(uint(k) /= w)) error stop 2
   end subroutine test2
 end program memain