Skip to content

Commit 5e3b588

Browse files
authored
Update src/stdlib_intrinsics_matmul.fypp
1 parent b6d07e6 commit 5e3b588

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_intrinsics_matmul.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -141,7 +141,7 @@ contains
141141
p(3) = size(m2, 2)
142142

143143
if (size(m1, 2) /= p(2)) then
144-
err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m1, m2 not of compatible sizes')
144+
err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m1=',shape(m1),', m2=',shape(m2),'have incompatible sizes')
145145
call linalg_error_handling(err0, err)
146146
allocate(res(0, 0))
147147
return

0 commit comments

Comments
 (0)