diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-09-25 18:51:48 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2024-09-25 18:51:48 +0200 |
| commit | 3308e82480169a4f6fdf75322cfbcbc765f21f7c (patch) | |
| tree | d3b1d9f2e7d15cb0b837894f62fc6a97e3fd89a0 /gcc | |
| parent | d1e7f3a6c149b6fa058ce3083c36b8a5c404af5c (diff) | |
| download | gcc-3308e82480169a4f6fdf75322cfbcbc765f21f7c.zip gcc-3308e82480169a4f6fdf75322cfbcbc765f21f7c.tar.gz gcc-3308e82480169a4f6fdf75322cfbcbc765f21f7c.tar.bz2 | |
Fix testsuite failure on 32-bit targets.
gcc/testsuite/ChangeLog:
* gfortran.dg/unsigned_25.f90: Change KIND=16 to KIND=8.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/unsigned_25.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/unsigned_25.f90 b/gcc/testsuite/gfortran.dg/unsigned_25.f90 index f614498..0cd86b0 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 |