Fix tests
[ghc.git] / testsuite / tests / numeric / should_compile / T7116.stdout
1 \r
2 ==================== Tidy Core ====================\r
3 Result size of Tidy Core = {terms: 22, types: 14, coercions: 0}\r
4 \r
5 -- RHS size: {terms: 8, types: 3, coercions: 0}\r
6 dl :: Double -> Double\r
7 [GblId,\r
8  Arity=1,\r
9  Caf=NoCafRefs,\r
10  Str=DmdType <S,1*U(U)>m,\r
11  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,\r
12          WorkFree=True, Expandable=True,\r
13          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)\r
14          Tmpl= \ (x [Occ=Once!] :: Double) ->\r
15                  case x of _ [Occ=Dead] { D# y -> D# (+## y y) }}]\r
16 dl =\r
17   \ (x :: Double) -> case x of _ [Occ=Dead] { D# y -> D# (+## y y) }\r
18 \r
19 -- RHS size: {terms: 1, types: 0, coercions: 0}\r
20 dr :: Double -> Double\r
21 [GblId,\r
22  Arity=1,\r
23  Caf=NoCafRefs,\r
24  Str=DmdType <S,1*U(U)>m,\r
25  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,\r
26          WorkFree=True, Expandable=True,\r
27          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)\r
28          Tmpl= \ (x [Occ=Once!] :: Double) ->\r
29                  case x of _ [Occ=Dead] { D# x1 -> D# (+## x1 x1) }}]\r
30 dr = dl\r
31 \r
32 -- RHS size: {terms: 8, types: 3, coercions: 0}\r
33 fl :: Float -> Float\r
34 [GblId,\r
35  Arity=1,\r
36  Caf=NoCafRefs,\r
37  Str=DmdType <S,1*U(U)>m,\r
38  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,\r
39          WorkFree=True, Expandable=True,\r
40          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)\r
41          Tmpl= \ (x [Occ=Once!] :: Float) ->\r
42                  case x of _ [Occ=Dead] { F# y -> F# (plusFloat# y y) }}]\r
43 fl =\r
44   \ (x :: Float) ->\r
45     case x of _ [Occ=Dead] { F# y -> F# (plusFloat# y y) }\r
46 \r
47 -- RHS size: {terms: 1, types: 0, coercions: 0}\r
48 fr :: Float -> Float\r
49 [GblId,\r
50  Arity=1,\r
51  Caf=NoCafRefs,\r
52  Str=DmdType <S,1*U(U)>m,\r
53  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,\r
54          WorkFree=True, Expandable=True,\r
55          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)\r
56          Tmpl= \ (x [Occ=Once!] :: Float) ->\r
57                  case x of _ [Occ=Dead] { F# x1 -> F# (plusFloat# x1 x1) }}]\r
58 fr = fl\r
59 \r
60 \r
61 \r