https://gcc.gnu.org/g:3308e82480169a4f6fdf75322cfbcbc765f21f7c
commit r15-3872-g3308e82480169a4f6fdf75322cfbcbc765f21f7c
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date: Wed Sep 25 18:51:48 2024 +0200
Fix testsuite failure on 32-bit targets.
gcc/testsuite/ChangeLog:
* gfortran.dg/unsigned_25.f90: Change KIND=16 to KIND=8.
Diff:
---
gcc/testsuite/gfortran.dg/unsigned_25.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gcc/testsuite/gfortran.dg/unsigned_25.f90
b/gcc/testsuite/gfortran.dg/unsigned_25.f90
index f6144988d82a..0cd86b093bb7 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
