(root)/
gcc-13.2.0/
gcc/
testsuite/
gfortran.dg/
vect/
pr99825.f90
! { dg-do compile }
! { dg-additional-options "-march=armv8.3-a -O3" { target { aarch64*-*-* } } }

program main
  complex, dimension(3, 2) :: a
  complex, dimension(2, 4) :: b
  complex, dimension(3, 4) :: c, res1

  data a /0, (-5., -7.), (11., -13.), 0, 0, 0/
  data b /0, 0, 0, 0, 0, 0, 0, 0/
  data res1 /0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/

  c = matmul(a, conjg(b))
  if (any(res1 /= c)) stop 2
end program main