Fix deferOutOfScopeVariables for qualified #20472

3 files changed, 18 insertions, 0 deletions

diff --git a/testsuite/tests/rename/should_compile/T20472.hs b/testsuite/tests/rename/should_compile/T20472.hs
new file mode 100644
index 0000000000..6d4d2b4d24
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T20472.hs
@@ -0,0 +1,8 @@
+{-# OPTIONS_GHC -fdefer-out-of-scope-variables #-}
+
+module T20472 where
+
+a = nonexistent
+b = Prelude.nonexistent
+c = True
+d = Nonexistent.x
diff --git a/testsuite/tests/rename/should_compile/T20472.stderr b/testsuite/tests/rename/should_compile/T20472.stderr
new file mode 100644
index 0000000000..0b26c5b480
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T20472.stderr
@@ -0,0 +1,9 @@
+
+T20472.hs:5:5: warning: [-Wdeferred-out-of-scope-variables (in -Wdefault)]
+    Variable not in scope: nonexistent
+
+T20472.hs:6:5: warning: [-Wdeferred-out-of-scope-variables (in -Wdefault)]
+    Variable not in scope: nonexistent
+
+T20472.hs:8:5: warning: [-Wdeferred-out-of-scope-variables (in -Wdefault)]
+    Variable not in scope: x
diff --git a/testsuite/tests/rename/should_compile/all.T b/testsuite/tests/rename/should_compile/all.T
index 5260145edd..2148470c66 100644
--- a/testsuite/tests/rename/should_compile/all.T
+++ b/testsuite/tests/rename/should_compile/all.T
@@ -176,3 +176,4 @@ test('T18264', [], makefile_test, ['T18264'])
 test('T18302', expect_broken(18302), compile, [''])
 test('T17853', [], multimod_compile, ['T17853', '-v0'])
 test('T19966', expect_broken(19966), compile, ['-fdefer-out-of-scope-variables'])
+test('T20472', normal, compile, [''])