diff --git a/src/pcre2.h.generic b/src/pcre2.h.generic
index a322d9f2d..4ef0793a8 100644
--- a/src/pcre2.h.generic
+++ b/src/pcre2.h.generic
@@ -166,6 +166,7 @@ D   is inspected during pcre2_dfa_match() execution
 #define PCRE2_JIT_PARTIAL_SOFT    0x00000002u
 #define PCRE2_JIT_PARTIAL_HARD    0x00000004u
 #define PCRE2_JIT_INVALID_UTF     0x00000100u
+#define PCRE2_JIT_TEST_ALLOC      0x00000200u
 
 /* These are for pcre2_match(), pcre2_dfa_match(), pcre2_jit_match(), and
 pcre2_substitute(). Some are allowed only for one of the functions, and in
diff --git a/src/pcre2.h.in b/src/pcre2.h.in
index b43534b04..e4118a475 100644
--- a/src/pcre2.h.in
+++ b/src/pcre2.h.in
@@ -166,6 +166,7 @@ D   is inspected during pcre2_dfa_match() execution
 #define PCRE2_JIT_PARTIAL_SOFT    0x00000002u
 #define PCRE2_JIT_PARTIAL_HARD    0x00000004u
 #define PCRE2_JIT_INVALID_UTF     0x00000100u
+#define PCRE2_JIT_TEST_ALLOC      0x00000200u
 
 /* These are for pcre2_match(), pcre2_dfa_match(), pcre2_jit_match(), and
 pcre2_substitute(). Some are allowed only for one of the functions, and in
diff --git a/src/pcre2_jit_compile.c b/src/pcre2_jit_compile.c
index 92f4fb858..b5c6da832 100644
--- a/src/pcre2_jit_compile.c
+++ b/src/pcre2_jit_compile.c
@@ -14848,8 +14848,31 @@ pcre2_jit_compile(pcre2_code *code, uint32_t options)
 {
 pcre2_real_code *re = (pcre2_real_code *)code;
 #ifdef SUPPORT_JIT
+void *exec_memory;
 executable_functions *functions;
 static int executable_allocator_is_working = -1;
+
+if (executable_allocator_is_working == -1)
+  {
+  /* Checks whether the executable allocator is working. This check
+     might run multiple times in multi-threaded environments, but the
+     result should not be affected by it. */
+  exec_memory = SLJIT_MALLOC_EXEC(32, NULL);
+  if (exec_memory != NULL)
+    {
+    SLJIT_FREE_EXEC(((sljit_u8*)(exec_memory)) + SLJIT_EXEC_OFFSET(exec_memory), NULL);
+    executable_allocator_is_working = 1;
+    }
+  else executable_allocator_is_working = 0;
+  }
+
+if (options & PCRE2_JIT_TEST_ALLOC)
+  {
+  if (options != PCRE2_JIT_TEST_ALLOC)
+    return PCRE2_ERROR_JIT_BADOPTION;
+
+  return executable_allocator_is_working ? 0 : PCRE2_ERROR_NOMEMORY;
+  }
 #endif
 
 if (code == NULL)
@@ -14912,20 +14935,6 @@ return PCRE2_ERROR_JIT_BADOPTION;
 
 if ((re->flags & PCRE2_NOJIT) != 0) return 0;
 
-if (executable_allocator_is_working == -1)
-  {
-  /* Checks whether the executable allocator is working. This check
-     might run multiple times in multi-threaded environments, but the
-     result should not be affected by it. */
-  void *ptr = SLJIT_MALLOC_EXEC(32, NULL);
-  if (ptr != NULL)
-    {
-    SLJIT_FREE_EXEC(((sljit_u8*)(ptr)) + SLJIT_EXEC_OFFSET(ptr), NULL);
-    executable_allocator_is_working = 1;
-    }
-  else executable_allocator_is_working = 0;
-  }
-
 if (!executable_allocator_is_working)
   return PCRE2_ERROR_NOMEMORY;