diff options
Diffstat (limited to 'testsuite/tests/simplCore')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T15673.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/all.T | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T15673.hs b/testsuite/tests/simplCore/should_compile/T15673.hs new file mode 100644 index 0000000000..30baa37d3d --- /dev/null +++ b/testsuite/tests/simplCore/should_compile/T15673.hs @@ -0,0 +1,6 @@ +module T14573 where
+
+import Data.Bits (shift)
+
+badOne :: [Int] -> Integer -- replace Integer by Int and all is good!
+badOne is = sum $ zipWith (\n _->shift 1 n) [0..] is
diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index d572d04e15..391994e3df 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -326,3 +326,4 @@ test('T15631', normal, run_command, ['$MAKE -s --no-print-directory T15631']) +test('T15673', normal, compile, ['-O']) |