id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	os	architecture	failure	difficulty	testcase	blockedby	blocking	related
1251	GADTs with newtype deriving can crash GHCi / cause Core Lint to fail	Stefan O'Rear <stefanor@…>		"In my attempts to prove that GHC was generating errors on valid code, I have stumbled on a way to crash six versions of GHC, both F and FC, and in one case passing Core Lint!

{{{
stefan@stefans:/tmp$ V=6.4.2 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.4.2
*** Exception: Segmentation fault
*** Exception: Segmentation fault
stefan@stefans:/tmp$ V=6.6 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.6
mkCase1: null alts tpl_X6{v} [lid] main:A.icA{v rFP} [gid]
Segmentation fault
mkCase1: null alts tpl_X6{v} [lid] main:A.icA{v rFP} [gid]
ghc-6.6: panic! (the 'impossible' happened)
  (GHC version 6.6 for i386-unknown-linux):
        compileExpr
    <no location info>:
        In the expression: base:GHC.Err.error{(w) v 06} [gid]
                             @ base:GHC.Base.(){(w) tc 40} ""Impossible alternative""
        Argument value doesn't match argument type:
        Fun type:
            [base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
        Arg type: base:GHC.Prim.Addr#{(w) tc 33}
        Arg: ""Impossible alternative""

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

stefan@stefans:/tmp$ V=6.7 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7
mkCase1: null alts tpl_B1{v} [lid] main:A.icA{v rq2} [gid]
Segmentation fault
mkCase1: null alts tpl_B1{v} [lid] main:A.icA{v rq2} [gid]
ghc-6.7: panic! (the 'impossible' happened)
  (GHC version 6.7 for i386-unknown-linux):
        compileExpr
    <no location info>:
        In the expression: base:GHC.Err.error{(w) v 06} [gid]
                             @ base:GHC.Base.(){(w) tc 40} ""Impossible alternative""
        Argument value doesn't match argument type:
        Fun type:
            [base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
        Arg type: base:GHC.Prim.Addr#{(w) tc 33}
        Arg: ""Impossible alternative""

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

stefan@stefans:/tmp$ V=6.7.20070213 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070213
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rsd} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rsd} [gid]
ghc-6.7.20070213: panic! (the 'impossible' happened)
  (GHC version 6.7.20070213 for i386-unknown-linux):
        compileExpr
    <no location info>:
        In the expression: base:GHC.Err.error{(w) v 06} [gid]
                             @ base:GHC.Base.(){(w) tc 40} ""Impossible alternative""
        Argument value doesn't match argument type:
        Fun type:
            [base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
        Arg type: base:GHC.Prim.Addr#{(w) tc 33}
        Arg: ""Impossible alternative""

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

stefan@stefans:/tmp$ V=6.7.20070223 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070223
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs9} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs9} [gid]
ghc-6.7.20070223: panic! (the 'impossible' happened)
  (GHC version 6.7.20070223 for i386-unknown-linux):
        compileExpr
    <no location info>:
        In the expression: base:GHC.Err.error{(w) v 06} [gid]
                             @ base:GHC.Base.(){(w) tc 40} ""Impossible alternative""
        Argument value doesn't match argument type:
        Fun type:
            [base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
        Arg type: base:GHC.Prim.Addr#{(w) tc 33}
        Arg: ""Impossible alternative""

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

stefan@stefans:/tmp$ V=6.7.20070323 ; ghc-$V -V ; ghc-$V -e 'seq icA ()' A.hs ; ghc-$V -dcore-lint -e 'seq icA ()' A.hs
The Glorious Glasgow Haskell Compilation System, version 6.7.20070323
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs4} [gid]
Segmentation fault
mkCase: null alts tpl_B1{v} [lid] main:A.icA{v rs4} [gid]
ghc-6.7.20070323: panic! (the 'impossible' happened)
  (GHC version 6.7.20070323 for i386-unknown-linux):
        compileExpr
    <no location info>:
        In the expression: base:GHC.Err.error{(w) v 06} [gid]
                             @ base:GHC.Base.(){(w) tc 40} ""Impossible alternative""
        Argument value doesn't match argument type:
        Fun type:
            [base:GHC.Base.Char{(w) tc 3o}] -> base:GHC.Base.(){(w) tc 40}
        Arg type: base:GHC.Prim.Addr#{(w) tc 33}
        Arg: ""Impossible alternative""

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

stefan@stefans:/tmp$ cat A.hs
{-# OPTIONS_GHC -fglasgow-exts #-}
module A(II(..), icA) where

data II a where II :: II Int

class IC a where ic :: II a

instance IC Int where ic = II

newtype A = A Int deriving(IC)

icA = (ic :: II A)
}}}"	bug	closed	normal	6.8.1	Compiler	6.6	fixed			Linux	x86		Unknown	gadt/CasePrune