Test for debugging code with unlifted values around

testsuite/tests/ghc-regress/ghci.debugger/dynbk9/A.hs

+{-# OPTIONS_GHC -fglasgow-exts #-}
+
+import GHC.Base
+
+f :: Int -> Int# ->  Int#
+f x i = i
+
+test = let I# i = 3 in I#(f 2 i)
\ No newline at end of file

testsuite/tests/ghc-regress/ghci.debugger/dynbk9/Makefile

+TOP=../../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk

testsuite/tests/ghc-regress/ghci.debugger/dynbk9/all.T

+
+test('dynbk009', normal, ghci_script, ['dynbk009.script'])

testsuite/tests/ghc-regress/ghci.debugger/dynbk9/dynbk009.script

+-- Instrumentation should not set breakpoints around unlifted values
+
+:set -fdebugging
+:l A.hs
+
+:show breakpoints
+test
\ No newline at end of file

testsuite/tests/ghc-regress/ghci.debugger/dynbk9/dynbk009.stdout

+Main:
+3