
diff -r 32a530a5c54c -r 4b1b85f38944 src/HOL/Codegenerator_Test/Code_Test_GHC.thy
--- a/src/HOL/Codegenerator_Test/Code_Test_GHC.thy	Wed Dec 16 17:30:30 2015 +0100
+++ b/src/HOL/Codegenerator_Test/Code_Test_GHC.thy	Fri Dec 18 11:14:28 2015 +0100
@@ -4,10 +4,20 @@
 Test case for test_code on GHC
 *)
 
-theory Code_Test_GHC imports "../Library/Code_Test" begin
+theory Code_Test_GHC imports "../Library/Code_Test" "../GCD" begin
 
 test_code "(14 + 7 * -12 :: integer) = 140 div -2" in GHC
 
 value [GHC] "14 + 7 * -12 :: integer"
 
+test_code -- \<open>Tests for the serialisation of @{const gcd} on @{typ integer}\<close>
+  "gcd 15 10 = (5 :: integer)"
+  "gcd 15 (- 10) = (5 :: integer)"
+  "gcd (- 10) 15 = (5 :: integer)"
+  "gcd (- 10) (- 15) = (5 :: integer)"
+  "gcd 0 (- 10) = (10 :: integer)"
+  "gcd (- 10) 0 = (10 :: integer)"
+  "gcd 0 0 = (0 :: integer)"
+in GHC
+
 end




