[I just saw I hit the wrong reply button on this]
Hi Andre,
thanks for your answers. I am ok with the patch.
I have committed all four patches.
Thanks a lot for the reviews!
Now for the remaining intrinsics (FINDLOC, MAXLOC,
MINLOC, MAXVAL, MINVAL, CSHIFT and EOSHIFT still missing).
And after that, C interop, one of the main reasons this
was requested.
I have also committed, right now, a fix for the failure of
unsigned_25.f90 on 32-bit systems as obvious.
Best regards
Thomas
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 --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
