Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/dd7dac275e0bb17c5b89794d03d061e84fc4e145 >--------------------------------------------------------------- commit dd7dac275e0bb17c5b89794d03d061e84fc4e145 Author: Simon Peyton Jones <[email protected]> Date: Thu Aug 23 17:02:52 2012 +0100 Test Trac #7165 >--------------------------------------------------------------- tests/simplCore/should_compile/Makefile | 5 +++++ tests/simplCore/should_compile/T7165.hs | 5 +++++ tests/simplCore/should_compile/T7165a.hs | 8 ++++++++ tests/simplCore/should_compile/all.T | 5 +++++ 4 files changed, 23 insertions(+), 0 deletions(-) diff --git a/tests/simplCore/should_compile/Makefile b/tests/simplCore/should_compile/Makefile index ec72c96..1026363 100644 --- a/tests/simplCore/should_compile/Makefile +++ b/tests/simplCore/should_compile/Makefile @@ -83,3 +83,8 @@ T4138: '$(TEST_HC)' $(TEST_HC_OPTS) -O -c T4138.hs -ddump-simpl > T4138.simpl grep -c 'F#' T4138.simpl +T7165: + $(RM) -f T7165.hi T7165a.hi T7165a.o T7165.o + '$(TEST_HC)' $(TEST_HC_OPTS) -c -O2 T7165a.hs -dcore-lint + '$(TEST_HC)' $(TEST_HC_OPTS) -c -O2 T7165.hs -dcore-lint + diff --git a/tests/simplCore/should_compile/T7165.hs b/tests/simplCore/should_compile/T7165.hs new file mode 100644 index 0000000..504b6ab --- /dev/null +++ b/tests/simplCore/should_compile/T7165.hs @@ -0,0 +1,5 @@ +module T7165 where + +import T7165a + +meh = blah (0,0) diff --git a/tests/simplCore/should_compile/T7165a.hs b/tests/simplCore/should_compile/T7165a.hs new file mode 100644 index 0000000..d12020a --- /dev/null +++ b/tests/simplCore/should_compile/T7165a.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE GADTs #-} + +module T7165a where + +blah :: (dd ~ (Double, Double)) => dd -> dd +blah (ax, bx) + | ax < bx = blah (bx, ax) + | otherwise = (0,0) diff --git a/tests/simplCore/should_compile/all.T b/tests/simplCore/should_compile/all.T index 1471933..973342a 100644 --- a/tests/simplCore/should_compile/all.T +++ b/tests/simplCore/should_compile/all.T @@ -149,3 +149,8 @@ test('T4138', ['$MAKE -s --no-print-directory T4138']) test('T7088', normal, compile, ['']) test('T6082-RULE', normal, compile, ['']) +test('T7165', + extra_clean(['T7165a.hi', 'T7165a.o']), + run_command, + ['$MAKE -s --no-print-directory T7165']) + _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
