Commit 8093e058 authored by simonpj's avatar simonpj

[project @ 2002-03-08 16:01:53 by simonpj]

A test for zero-constructor types
parent b6beb55d
......@@ -57,3 +57,4 @@ test "cg049" { vtr( "-funbox-strict-fields", "", "") }
-- NB: be sure to run cg050 *without* -O; that's what showed the bug
test "cg050" { vtr( "", "", "") }
test "cg051" { vtr( "", "", "1") } -- Expected to fail
{-# OPTIONS -fglasgow-exts #-}
module Main where
data T1 -- No constructors
data T2 = T2 !T1 Int
main = print (case (T2 (error "OK") 1) of { T2 x y -> y })
-- We should hit the (error "OK") case
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment