diff --git a/testsuite/tests/lib/integer/Makefile b/testsuite/tests/lib/integer/Makefile
index 77b733de322a2317304aa56289f9c2d173ac4150..34d5a177baf5fbbe2bdf2478f738b48a1ba0999f 100644
--- a/testsuite/tests/lib/integer/Makefile
+++ b/testsuite/tests/lib/integer/Makefile
@@ -56,9 +56,3 @@ IntegerConversionRules:
 	-grep -q integerToWord     $@.simpl && echo "integerToWord present"
 	-grep -q int2Word          $@.simpl || echo "int2Word absent"
 
-.PHONY: T7041
-T7041:
-	'$(TEST_HC)' -Wall -v0 -O -c $@.hs -fforce-recomp -ddump-simpl > $@.simpl
-	-grep -q gcdInteger        $@.simpl && echo "gcdInteger present"
-	-grep -q "gcdInt\>"        $@.simpl || echo "gcdInt absent"
-
diff --git a/testsuite/tests/lib/integer/T7041.hs b/testsuite/tests/lib/integer/T7041.hs
deleted file mode 100644
index 02ef996b426dcd800f3c0a97155a92cdae765f78..0000000000000000000000000000000000000000
--- a/testsuite/tests/lib/integer/T7041.hs
+++ /dev/null
@@ -1,6 +0,0 @@
-
-module T7041 where
-
-gcdInt :: Int -> Int -> Int
-gcdInt a b = fromInteger (gcd (toInteger a) (toInteger b))
-
diff --git a/testsuite/tests/lib/integer/all.T b/testsuite/tests/lib/integer/all.T
index cb5767580cf169ca47e47c84ad627bf1a836bf32..61c061ecf80146bea70f12af49f71bd22e284a4f 100644
--- a/testsuite/tests/lib/integer/all.T
+++ b/testsuite/tests/lib/integer/all.T
@@ -13,8 +13,4 @@ test('IntegerConversionRules',
      run_command,
      ['$MAKE -s --no-print-directory IntegerConversionRules'])
 test('gcdInteger', normal, compile_and_run, [''])
-test('T7041',
-     extra_clean(['T7041.simpl']),
-     run_command,
-     ['$MAKE -s --no-print-directory T7041'])