diff --git a/src/init.c b/src/init.c
index 771df12d5..d39f36136 100644
--- a/src/init.c
+++ b/src/init.c
@@ -341,8 +341,11 @@ double linCmtB(rx_solve *rx, unsigned int id, double t, int linCmt,
 
 SEXP _rxode2_rxQr(SEXP);
 
+SEXP _rxode2_parse_strncmpci(void);
+
 void R_init_rxode2(DllInfo *info){
   R_CallMethodDef callMethods[]  = {
+    {"_rxode2_parse_strncmpci",(DL_FUNC) & _rxode2_parse_strncmpci, 0},
     {"_rxode2_rxParseSetSilentErr", (DL_FUNC) &_rxode2_rxParseSetSilentErr, 1},
     {"_rxode2_etRep_", (DL_FUNC) &_rxode2_etRep_, 7},
     {"_rxode2_etSeq_", (DL_FUNC) &_rxode2_etSeq_, 11},
diff --git a/tests/testthat/test-strncmpi.R b/tests/testthat/test-strncmpi.R
new file mode 100644
index 000000000..bd21731c7
--- /dev/null
+++ b/tests/testthat/test-strncmpi.R
@@ -0,0 +1,4 @@
+test_that("test-strncmpi", {
+  skip_on_cran()
+  expect_equal(.Call(`_rxode2_parse_strncmpci`), 1L)
+})