upgrade the testsuite to work with GHC 6.12

testsuite/compiler/check/cyclic/abs-types/test1.gfs.gold

@@ -1,4 +1,4 @@
-
-
-
-
+
+
+checking module Test1Abs
+   circular definitions: A B

testsuite/compiler/check/cyclic/abs-types/test2.gfs.gold

@@ -1,4 +1,4 @@
-
-
-
-
+
+
+checking module Test2Abs
+   circular definitions: f g

testsuite/compiler/check/cyclic/opers/test.gfs.gold

@@ -1,8 +1,8 @@
-
-
-
-
-checking module TestOpers
-
-   circular definitions: A B
-
+
+
+checking module TestOpers
+   circular definitions: A B
+
+
+checking module TestOperTypes
+   circular definitions: A T

testsuite/compiler/check/cyclic/params/test.gfs.gold

@@ -1,4 +1,4 @@
-
-
-
-
+
+
+checking module TestParams
+   circular definitions: A B

testsuite/compiler/check/lincat-types/test.gfs.gold

@@ -1,7 +1,7 @@
-
-
-
-
-checking module TestCnc
-
-   Happened in linearization type of S in TestCnc.gf, line 3:
+
+
+checking module TestCnc
+   Happened in linearization type of S in TestCnc.gf, line 3:
+       type of PTrue
+      expected: Type
+      inferred: PBool

testsuite/compiler/check/lins/lins.gfs.gold

@@ -1,37 +1,37 @@
-checking module linsCnc
-
-   Warning: no linearization type for C, inserting default {s : Str}
-
-   Warning: no linearization of test
-
-abstract lins {
-
-  cat C Nat
-
-  cat Float
-
-  cat Int
-
-  cat Nat
-
-  cat String
-
-  fun test : C zero
-
-  fun zero : Nat
-
-}
-
-concrete linsCnc {
-
-  productions
-
-    C0 -> F0[CVar]
-
-    C1 -> F1[CVar]
-
-    C1 -> F2[]
-
-  functions
-
-    F0 := (S0) [__gfV]
+checking module linsCnc
+   Warning: no linearization type for C, inserting default {s : Str}
+   Warning: no linearization of test
+abstract lins {
+  cat C Nat
+  cat Float
+  cat Int
+  cat Nat
+  cat String
+  fun test : C zero
+  fun zero : Nat
+}
+concrete linsCnc {
+  productions
+    C0 -> F0[CVar]
+    C1 -> F1[CVar]
+    C1 -> F2[]
+  functions
+    F0 := (S0) [__gfV]
+    F1 := () [__gfV]
+    F2 := () [zero]
+  sequences
+    S0 := <0,0>
+  categories
+    C := range  [C0 .. C0]
+         labels ["s"]
+    Float := range  [CFloat .. CFloat]
+             labels ["s"]
+    Int := range  [CInt .. CInt]
+           labels ["s"]
+    Nat := range  [C1 .. C1]
+           labels []
+    String := range  [CString .. CString]
+              labels ["s"]
+    __gfVar := range  [CVar .. CVar]
+               labels ["s"]
+}

testsuite/compiler/check/oper-definition/test.gfs.gold

@@ -1,5 +1,5 @@
-
-
-
-
-checking module Res
+
+
+checking module Res
+   Happened in operation my_oper in Res.gf, line 3:
+      No definition given to the operation