1! { dg-do run } 2! { dg-additional-options "-fno-frontend-optimize -fdump-tree-original" } 3program main 4 integer, parameter :: A(3,2) = reshape([1,2,3,4,5,6],[3,2]) 5 integer, parameter :: B(2,3) = reshape([1,1,1,1,1,1],[2,3]) 6 character (len=30) :: line 7 write (unit=line,fmt='(9i3)') matmul(A,B) 8 if (line /= ' 5 7 9 5 7 9 5 7 9') STOP 1 9end program main 10! { dg-final { scan-tree-dump-times "matmul_i4" 0 "original" } } 11