diff --git a/kernel/generic/lsame.c b/kernel/generic/lsame.c
index cae8b4ae3..83fff1798 100644
--- a/kernel/generic/lsame.c
+++ b/kernel/generic/lsame.c
@@ -38,7 +38,7 @@
 
 #include <ctype.h>
 
-int NAME(char *A, char *B){
+int NAME(const char *A, const char *B){
 
   char a = *A;
   char b = *B;
diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h
index e4c39e1ee..14695fdc8 100644
--- a/lapack-netlib/LAPACKE/include/lapack.h
+++ b/lapack-netlib/LAPACKE/include/lapack.h
@@ -115,7 +115,7 @@ typedef lapack_logical (*LAPACK_Z_SELECT2)
     ( const lapack_complex_double*, const lapack_complex_double* );
 
 #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
-lapack_logical LAPACK_lsame_base( char* ca,  char* cb,
+lapack_logical LAPACK_lsame_base( const char* ca, const char* cb,
                               lapack_int lca, lapack_int lcb
 #ifdef LAPACK_FORTRAN_STRLEN_END
     , size_t, size_t