mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-23 10:54:07 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix testsuite failure on 32-bit targets.

Browse Source 
gcc/testsuite/ChangeLog:

	* gfortran.dg/unsigned_25.f90: Change KIND=16 to KIND=8.
This commit is contained in:
Thomas Koenig 2024-09-25 18:51:48 +02:00
parent d1e7f3a6c1
commit 3308e82480
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/gfortran.dg/unsigned_25.f90
View File

@ -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