gcc/testsuite/gfortran.dg/matmul_2.f90

   1 !{ dg-do run }
   2 ! PR libfortran/26985
   3 program matmul_2
   4   implicit none
   5   integer :: a(2,9), b(9,7), c(2,7)
   6   integer :: i, j
   7
   8   a = 1
   9   b = 2
  10   c = 1789789
  11   c(:,1:7:2) = matmul(a,b(:,1:7:2))
  12
  13   if (c(1,1) /= 18 .or. c(2,1) /= 18 .or. &
  14       c(1,2) /= 1789789 .or. c(2,2) /= 1789789 .or. &
  15       c(1,3) /= 18 .or. c(2,3) /= 18 .or. &
  16       c(1,4) /= 1789789 .or. c(2,4) /= 1789789 .or. &
  17       c(1,5) /= 18 .or. c(2,5) /= 18 .or. &
  18       c(1,6) /= 1789789 .or. c(2,6) /= 1789789 .or. &
  19       c(1,7) /= 18 .or. c(2,7) /= 18) call abort
  20
  21 end program matmul_2