Generate correct relocation for external cost centre
[ghc.git] / testsuite / tests / codeGen / should_compile / T15723B.hs
1 module T15723B where
2
3 import T15723A
4
5 test :: Int -> Int
6 test x = {-# SCC test1 #-} foo $ foo x