diff options
Diffstat (limited to 'testsuite/tests/programs/strict_anns/Main.hs')
| -rw-r--r-- | testsuite/tests/programs/strict_anns/Main.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/programs/strict_anns/Main.hs b/testsuite/tests/programs/strict_anns/Main.hs new file mode 100644 index 0000000000..b2ee82d4bc --- /dev/null +++ b/testsuite/tests/programs/strict_anns/Main.hs @@ -0,0 +1,13 @@ +-- This test checks that constructors with strictness annotations +-- at least parse correctly. In GHC 2.02 they didn't! + +module Main where + +data Foo1 = Crunch1 ! Int ! Int Int deriving( Show ) + +data Foo2 = Crunch2 ! Int Int Int deriving( Show ) + +main = do + print (Crunch1 (1+1) (2+2) (3+3)) + print (Crunch2 (1+1) (2+2) (3+3)) + |