2 ! { dg-additional-options "-fno-frontend-optimize -fdump-tree-original" }
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') call abort
10 ! dg-final { scan-tree-dump-times "matmul_i4" 0 "original" } }