Test Trac #7287
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 3 Oct 2012 07:44:20 +0000 (08:44 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 3 Oct 2012 07:44:20 +0000 (08:44 +0100)
testsuite/tests/simplCore/should_compile/T7287.hs [new file with mode: 0644]
testsuite/tests/simplCore/should_compile/all.T

diff --git a/testsuite/tests/simplCore/should_compile/T7287.hs b/testsuite/tests/simplCore/should_compile/T7287.hs
new file mode 100644 (file)
index 0000000..1d777bd
--- /dev/null
@@ -0,0 +1,8 @@
+{-# LANGUAGE MagicHash #-}\r
+module T7287 where\r
+\r
+import GHC.Prim\r
+\r
+{-# RULES\r
+  "int2Word#/word2Int#" forall x. int2Word# (word2Int# x) = x\r
+  #-}\r
index 973342a..e9b9aa3 100644 (file)
@@ -153,4 +153,5 @@ test('T7165',
      extra_clean(['T7165a.hi', 'T7165a.o']),
      run_command,
      ['$MAKE -s --no-print-directory T7165'])
+test('T7287', normal, compile, [''])