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,,,