diff options
Diffstat (limited to 'testsuite/tests/codeGen/should_run/cgrun051.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/cgrun051.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/cgrun051.hs b/testsuite/tests/codeGen/should_run/cgrun051.hs new file mode 100644 index 0000000000..c8ebb7f5e3 --- /dev/null +++ b/testsuite/tests/codeGen/should_run/cgrun051.hs @@ -0,0 +1,9 @@ + +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 |