testsuite: Add test for #24327

testsuite/tests/ghci/T24327/T24327.hs

+module T24327 where
+import T24327A
+
+bar :: Int
+bar = foo1 'a' 1
+

testsuite/tests/ghci/T24327/T24327.script

+:l T24327

testsuite/tests/ghci/T24327/T24327A.hs

+module T24327A where
+
+{-# INLINE foo1 #-}
+foo1 :: Char -> Int -> Int
+foo1 _  y = bar1 y
+
+{-# INLINE bar1 #-}
+bar1 :: Int -> Int
+bar1 x = length [1..10] + x
+

testsuite/tests/ghci/T24327/all.T

+test('T24327', [extra_ways(['ghci-ext-prof']), only_ways(['ghci-ext-prof']), extra_files(['T24327A.hs', 'T24327.hs']), extra_hc_opts('-fno-unoptimized-core-for-interpreter -O')], ghci_script, ['T24327.script'])