#12368: Demand Analyzer: Cunnig plan not adhered to with aborting fixpoint
interation
-------------------------------------+-------------------------------------
Reporter: nomeata | Owner:
Type: bug | Status: new
Priority: low | Milestone:
Component: Compiler | Version: 8.0.1
Resolution: | Keywords:
Operating System: Unknown/Multiple | Architecture:
| Unknown/Multiple
Type of failure: None/Unknown | Test Case:
Blocked By: | Blocking:
Related Tickets: | Differential Rev(s):
Wiki Page: |
-------------------------------------+-------------------------------------
Comment (by nomeata):
I could trigger an unsound result this way:
{{{#!hs
module DmdFixBug where
-- Needs to be a product type
data Stream = S Int Stream
bar s = foo s
where
foo :: Stream -> Int
foo (S n s) = n + foo s
}}}
that terminate only because of the 10-iteration-limit, and as you can see,
the result is wrong (there is an “absent” value that is not absent)
{{{
bar :: Stream -> Int
[LclIdX,
Arity=1,
Str=