Update src/stdlib_intrinsics_matmul.fypp

Author: perazz

src/stdlib_intrinsics_matmul.fypp

@@ -152,7 +152,8 @@ contains
         if (present(m3)) then
 
             if (size(m3, 1) /= p(3)) then
-                err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m2=',shape(m2),', m3=',shape(m3),'have incompatible sizes')
+                err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m2=',shape(m2), &
+                       ', m3=',shape(m3),'have incompatible sizes')
                 call linalg_error_handling(err0, err)
                 allocate(res(0, 0))
                 return