diff --git a/ghc/tests/lib/should_run/addr001.hs b/ghc/tests/lib/should_run/addr001.hs
new file mode 100644
index 0000000000000000000000000000000000000000..89e49c45e26bab84dd509e1c90e403c80fe95f9a
--- /dev/null
+++ b/ghc/tests/lib/should_run/addr001.hs
@@ -0,0 +1,10 @@
+-- !!! Testing that Show for Addr is OK..
+module Main(main) where
+
+import Addr
+
+main :: IO ()
+main = do
+  print (intToAddr maxBound)
+  print (intToAddr minBound)
+