b1bee29167
Do not invoke tuned rank-2 times rank-2 matmul if rank(b) == 1. libgfortran/ChangeLog: PR libfortran/99218 * m4/matmul_internal.m4: Invoke tuned matmul only for rank(b)>1. * generated/matmul_c10.c: Regenerated. * generated/matmul_c16.c: Likewise. * generated/matmul_c4.c: Likewise. * generated/matmul_c8.c: Likewise. * generated/matmul_i1.c: Likewise. * generated/matmul_i16.c: Likewise. * generated/matmul_i2.c: Likewise. * generated/matmul_i4.c: Likewise. * generated/matmul_i8.c: Likewise. * generated/matmul_r10.c: Likewise. * generated/matmul_r16.c: Likewise. * generated/matmul_r4.c: Likewise. * generated/matmul_r8.c: Likewise. * generated/matmulavx128_c10.c: Likewise. * generated/matmulavx128_c16.c: Likewise. * generated/matmulavx128_c4.c: Likewise. * generated/matmulavx128_c8.c: Likewise. * generated/matmulavx128_i1.c: Likewise. * generated/matmulavx128_i16.c: Likewise. * generated/matmulavx128_i2.c: Likewise. * generated/matmulavx128_i4.c: Likewise. * generated/matmulavx128_i8.c: Likewise. * generated/matmulavx128_r10.c: Likewise. * generated/matmulavx128_r16.c: Likewise. * generated/matmulavx128_r4.c: Likewise. * generated/matmulavx128_r8.c: Likewise. gcc/testsuite/ChangeLog: PR libfortran/99218 * gfortran.dg/matmul_21.f90: New test.
16 lines
429 B
Fortran
16 lines
429 B
Fortran
! { dg-do run }
|
|
! PR libfortran/99218 - matmul on temporary array accesses invalid memory
|
|
|
|
program p
|
|
implicit none
|
|
integer, parameter :: nState = 300000
|
|
integer, parameter :: nCon = 1
|
|
real, parameter :: ZERO = 0.0
|
|
real :: G(nCon,nState) = ZERO
|
|
real :: H(nState,nCon) = ZERO
|
|
real :: lambda(nCon) = ZERO
|
|
real :: f(nState) = ZERO
|
|
f = matmul (transpose (G), lambda)
|
|
if (f(1) /= ZERO) stop 1
|
|
end program
|