diff options
Diffstat (limited to 'testsuite/tests/numeric/should_compile/T16402.stderr-ws-64')
| -rw-r--r-- | testsuite/tests/numeric/should_compile/T16402.stderr-ws-64 | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/testsuite/tests/numeric/should_compile/T16402.stderr-ws-64 b/testsuite/tests/numeric/should_compile/T16402.stderr-ws-64 new file mode 100644 index 0000000000..d81adaaa7b --- /dev/null +++ b/testsuite/tests/numeric/should_compile/T16402.stderr-ws-64 @@ -0,0 +1,37 @@ + +==================== Tidy Core ==================== +Result size of Tidy Core + = {terms: 36, types: 19, coercions: 0, joins: 0/0} + +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} +$trModule4 = "main"# + +-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} +$trModule3 = TrNameS $trModule4 + +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} +$trModule2 = "T16402"# + +-- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0} +$trModule1 = TrNameS $trModule2 + +-- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0} +$trModule = Module $trModule3 $trModule1 + +-- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} +smallWord_bar + = \ x -> case x of { W64# x# -> W64# (and# x# 0xffff##) } + +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} +smallWord_foo = smallWord_bar + +-- RHS size: {terms: 8, types: 3, coercions: 0, joins: 0/0} +smallInt_bar + = \ x -> + case x of { I64# x# -> I64# (extendInt16# (narrowInt16# x#)) } + +-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0} +smallInt_foo = smallInt_bar + + + |