Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / T4138.hs
1
2 module T4138 where
3
4 import T4138_A
5
6 -- We NOINLINE f because we want to count the number of F#s in the
7 -- -ddump-simpl output, so we don't want to be confused by F#s
8 -- appearing in the inlining
9 {-# NOINLINE f #-}
10 f :: (Float, Float) -> ()
11 f = rnf
12
13 {-
14 We're hoping that the output will include something like:
15
16 \ (ds_afa :: (GHC.Types.Float, GHC.Types.Float)) ->
17 case ds_afa of _ { (x_afd, y_afe) ->
18 case x_afd of _ { GHC.Types.F# ipv_afm ->
19 T4138_A.$fNFDataFloat_$crnf y_afe } }
20 -}