Fix typo.

Author: loiseaujc

src/stdlib_linalg_matrix_functions.fypp

@@ -45,7 +45,7 @@ contains
 
         if (lda<1 .or. n<1 .or. lda/=n .or. lde/=n .or. ne/=n) then     
             err0 = linalg_state_type(this,LINALG_VALUE_ERROR, &
-                                     'invalid matrix sizes: A must be square (lda=', lda, ', n=', n, '), &
+                                     'invalid matrix sizes: A must be square (lda=', lda, ', n=', n, ')', &
                                      ' E must be square (lde=', lde, ', ne=', ne, ')')
         else
             E(:n, :n) = A(:n, :n) ; call stdlib_linalg_${ri}$_expm_inplace(E, order, err0)