1!{ dg-do run } 2! PR libfortran/26985 3program 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) STOP 1 20 21end program matmul_2 22