diff --git a/expat/tests/runtests.c b/expat/tests/runtests.c
index 4d7863ea..de43f96a 100644
--- a/expat/tests/runtests.c
+++ b/expat/tests/runtests.c
@@ -6767,6 +6767,18 @@ START_TEST(test_bad_entity_3)
 }
 END_TEST
 
+START_TEST(test_bad_entity_4)
+{
+    const char *text =
+        "<!DOCTYPE doc [\n"
+        "  <!ENTITY % foo SYSTEM>\n"
+        "]>\n"
+        "<doc/>";
+    expect_failure(text, XML_ERROR_SYNTAX,
+                   "Parameter ENTITY without Public ID is not rejected");
+}
+END_TEST
+
 /*
  * Namespaces tests.
  */
@@ -12257,6 +12269,7 @@ make_suite(void)
     tcase_add_test(tc_basic, test_bad_entity);
     tcase_add_test(tc_basic, test_bad_entity_2);
     tcase_add_test(tc_basic, test_bad_entity_3);
+    tcase_add_test(tc_basic, test_bad_entity_4);
 
     suite_add_tcase(s, tc_namespace);
     tcase_add_checked_fixture(tc_namespace,