Update src/stdlib_intrinsics_matmul.fypp

fortran-lang · wassup05 · Mar 13, 2025 · Mar 13, 2025 · Mar 13, 2025 · Mar 13, 2025
commit 5c2bbc59a74a7e77ec09c5ceb377592ba9fb1440
diff --git a/src/stdlib_intrinsics_matmul.fypp b/src/stdlib_intrinsics_matmul.fypp
@@ -166,7 +166,8 @@ contains
         if (present(m4)) then
 
             if (size(m4, 1) /= p(4)) then
-                err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m3=',shape(m3),', m4=',shape(m4),' have incompatible sizes')
+                err0 = linalg_state_type(this, LINALG_VALUE_ERROR, 'matrices m3=',shape(m3), &
+                       ', m4=',shape(m4),' have incompatible sizes')
                 call linalg_error_handling(err0, err)
                 allocate(res(0, 0))
                 return