diff --git a/testsuite/tests/driver/T16167.hs b/testsuite/tests/driver/T16167.hs
new file mode 100644
index 0000000000000000000000000000000000000000..865a269a5ced8566f75a39c0c90982aa7f750d7b
--- /dev/null
+++ b/testsuite/tests/driver/T16167.hs
@@ -0,0 +1 @@
+module f
diff --git a/testsuite/tests/driver/T16167.stdout b/testsuite/tests/driver/T16167.stdout
new file mode 100644
index 0000000000000000000000000000000000000000..4cd1e64b6eab1f99d3786990ab53287e4d2f0826
--- /dev/null
+++ b/testsuite/tests/driver/T16167.stdout
@@ -0,0 +1 @@
+{"span": {"file": "T16167.hs","startLine": 1,"startCol": 8,"endLine": 1,"endCol": 9},"doc": "parse error on input \u2018f\u2019","severity": "SevError","reason": null}
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 3060c8ff13b15aa849c6ed42eef6b27ad72a7bea..bb345c7ac9a3ca6d15216c782237e8d9802e18b1 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -261,6 +261,8 @@ test('T12955', normal, makefile_test, [])
 test('T12971', [when(opsys('mingw32'), expect_broken(17945)), ignore_stdout], makefile_test, [])
 test('json', normal, compile_fail, ['-ddump-json'])
 test('json2', normalise_version('base','ghc-prim'), compile, ['-ddump-types -ddump-json'])
+test('T16167', exit_code(1), run_command, 
+     ['{compiler} -x hs -e ":set prog T16167.hs" -ddump-json T16167.hs'])
 test('T13604', [], makefile_test, [])
 test('T13604a', [], makefile_test, [])
 # omitting hpc and profasm because they affect the