Rectified gold files

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

@@ -1,7 +1,9 @@
 
 
-testsuite/compiler/check/lincat-types/TestCnc.gf:3:
+testsuite/compiler/check/lincat-types/TestCnc.gf:
-  Happened in linearization type of S
+   testsuite/compiler/check/lincat-types/TestCnc.gf:3:
-    type of PTrue
+     Happened in linearization type of S
-   expected: Type
+       type of PTrue
-   inferred: PBool
+      expected: Type
+      inferred: Predef.PBool
+      

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

@@ -1,39 +1,41 @@
-checking module linsCnc
+abstract lins {
-   Warning: no linearization type for C, inserting default {s : Str}
+  cat C Nat ;
-   Warning: no linearization of test
+  cat Float ;
-abstract lins {
+  cat Int ;
-  cat C Nat ;
+  cat Nat ;
-  cat Float ;
+  cat String ;
-  cat Int ;
+  fun test : C zero ;
-  cat Nat ;
+  fun zero : Nat ;
-  cat String ;
+}
-  fun test : C zero ;
+concrete linsCnc {
-  fun zero : Nat ;
+  productions
-}
+    C1 -> F4[]
-concrete linsCnc {
+  lindefs
-  productions
+    C0 -> F0[CVar]
-    C1 -> F2[]
+    C1 -> F2[CVar]
-  lindefs
+  linrefs
-    C0 -> F0
+    CVar -> F1[C0]
-    C1 -> F1
+    CVar -> F3[C1]
-  lin
+  lin
-    F0 := (S0) [lindef C]
+    F0 := (S2) ['lindef C']
-    F1 := () [lindef Nat]
+    F1 := (S1) ['lindef C']
-    F2 := () [zero]
+    F2 := () ['lindef Nat']
-  sequences
+    F3 := (S0) ['lindef Nat']
-    S0 := {0,0}
+    F4 := () [zero]
-  categories
+  sequences
-    C := range  [C0 .. C0]
+    S0 :=
-         labels ["s"]
+    S1 := <0,0>
-    Float := range  [CFloat .. CFloat]
+    S2 := {0,0}
-             labels ["s"]
+  categories
-    Int := range  [CInt .. CInt]
+    C := range  [C0 .. C0]
-           labels ["s"]
+         labels ["s"]
-    Nat := range  [C1 .. C1]
+    Float := range  [CFloat .. CFloat]
-           labels []
+             labels ["s"]
-    String := range  [CString .. CString]
+    Int := range  [CInt .. CInt]
-              labels ["s"]
+           labels ["s"]
-    __gfVar := range  [CVar .. CVar]
+    Nat := range  [C1 .. C1]
-               labels [""]
+           labels []
-  printnames
+    String := range  [CString .. CString]
-}
+              labels ["s"]
+  printnames
+}

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

@@ -1,5 +1,6 @@
 
 
-testsuite/compiler/check/oper-definition/Res.gf:3:
+testsuite/compiler/check/oper-definition/Res.gf:
-  Happened in operation my_oper
+   testsuite/compiler/check/oper-definition/Res.gf:3:
-   No definition given to the operation
+     Happened in operation my_oper
+      No definition given to the operation

testsuite/compiler/check/strMatch/strMatch.gfs.gold

@@ -0,0 +1 @@
+

testsuite/compiler/typecheck/abstract/LetInDefAbs.gfs.gold

@@ -0,0 +1,15 @@
+fun f : Int -> Int ;
+def f n = ? ;
+000 CHECK_ARGS  1
+    ALLOC       2
+    PUT_CLOSURE 001
+    SET_PAD
+    TUCK        hp(0) 1
+    EVAL        f tail(0)
+001 ALLOC       2
+    PUT_LIT     0
+    PUSH_FRAME
+    PUSH        hp(0)
+    EVAL        f update
+Probability: 1.0
+

testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs.gold

@@ -1 +1,3 @@
-fun f : (Int -> Int) -> Int -> Int
+fun f : (Int -> Int) -> Int -> Int ;
+Probability: 1.0
+

testsuite/compiler/typecheck/abstract/test_A.gfs.gold

@@ -1,5 +1,6 @@
 
 
-testsuite/compiler/typecheck/abstract/A.gf:4:
+testsuite/compiler/typecheck/abstract/A.gf:
-  Happened in the category B
+   testsuite/compiler/typecheck/abstract/A.gf:4:
-   Prod expected for function A instead of Type
+     Happened in the category B
+      Prod expected for function A instead of Type

testsuite/compiler/typecheck/abstract/test_B.gfs.gold

@@ -1,5 +1,6 @@
 
 
-testsuite/compiler/typecheck/abstract/B.gf:5:
+testsuite/compiler/typecheck/abstract/B.gf:
-  Happened in the type of function f
+   testsuite/compiler/typecheck/abstract/B.gf:5:
-   Prod expected for function S instead of Type
+     Happened in the type of function f
+      Prod expected for function S instead of Type

testsuite/compiler/typecheck/abstract/test_C.gfs.gold

@@ -1,5 +1,6 @@
 
 
-testsuite/compiler/typecheck/abstract/C.gf:6:
+testsuite/compiler/typecheck/abstract/C.gf:
-  Happened in the definition of function f
+   testsuite/compiler/typecheck/abstract/C.gf:6:
-   {Int <> S}
+     Happened in the definition of function f
+      {Int <> S}

testsuite/compiler/typecheck/concrete/test_A.gfs.gold

@@ -1,5 +1,9 @@
 
 
-testsuite/compiler/typecheck/concrete/A.gf:5:
+testsuite/compiler/typecheck/concrete/A.gf:
-  Happened in operation silly
+   testsuite/compiler/typecheck/concrete/A.gf:5:
-   A function type is expected for a_Det instead of type Str
+     Happened in operation silly
+      A function type is expected for a_Det instead of type Str
+      
+   ** Maybe you gave too many arguments to a_Det 
+

testsuite/runtime/linearize/brackets.gfs.gold

@@ -1,28 +1,19 @@
 (S:2 (E:1 (_:0 ?1)) is even)
 
-
 (S:3 exists x such that (S:2 (E:1 (_:0 x)) is even))
 
-
 (S:1 (E:0 a))
 
-
 (S:1 (E:0 aa) a)
 
-
 (S:1 (E:0 a) b)
 
-
 (S:1 (String:0 abcd) is string)
 
-
 (S:1 (Int:0 100) is integer)
 
-
 (S:1 (Float:0 12.4) is float)
 
-
 (S:1 (String:0 xyz) is string)
 
-
+ cannot linearize
-cannot linearize

testsuite/runtime/linearize/linearize.gfs.gold

@@ -1,30 +1,20 @@
 ?1 is even
 
-
 exists x such that x is even
 
-
 a
 
-
 aa a
 
-
 a b
 
-
 abcd is string
 
-
 100 is integer
 
-
 12.4 is float
 
-
 xyz is string
 
 
 
-
-

testsuite/runtime/typecheck/hard-unification.gfs.gold

@@ -1,6 +1,8 @@
-Expression:  s (\v0 -> v0) (app (\v0 -> v0)) ex
+Expression:  s (\v0 -> v0) (app (\v0 -> v0)) ex
-Type:        S
+Type:        S
-Probability: 1.0
+Probability: 1.0
-
+
-Meta variable(s) ?2 should be resolved
+Meta variable(s) ?2 should be resolved
-in the expression: s ?2 (app ?2) ?4
+in the expression: s ?2 (app ?2) ?4
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands

testsuite/runtime/typecheck/implicit-arguments.gfs.gold

@@ -1,35 +1,37 @@
-Expression:  join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
+Expression:  join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
-Type:        Path n1 n3
+Type:        Path n1 n3
-Probability: 1.0000000000000002e-2
+Probability: 1.0000000000000002e-2
-
+
-Expression:  join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
+Expression:  join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
-Type:        Path n1 n3
+Type:        Path n1 n3
-Probability: 1.0000000000000002e-2
+Probability: 1.0000000000000002e-2
-
+
-Expression:  <?2 : Label {?1}>
+Expression:  <?2 : Label {?1}>
-Type:        Label {?1}
+Type:        Label {?1}
-Probability: 1.0
+Probability: 1.0
-
+
-Expression:  <?2 : Label {n1}>
+Expression:  <?2 : Label {n1}>
-Type:        Label {n1}
+Type:        Label {n1}
-Probability: 1.0
+Probability: 1.0
-
+
-{n1} is implicit argument but not implicit argument is expected here
+{n1} is implicit argument but not implicit argument is expected here
-Expression:  <\{_1}, x -> x : ({m} : Node) -> (n : Node) -> Node>
+CallStack (from HasCallStack):
-Type:        ({m} : Node) -> (n : Node) -> Node
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Probability: 1.0
+Expression:  <\{_1}, x -> x : ({m} : Node) -> (n : Node) -> Node>
-
+Type:        ({m} : Node) -> (n : Node) -> Node
-Expression:  <\{_1} -> n1 : ({m} : Node) -> Node>
+Probability: 1.0
-Type:        ({m} : Node) -> Node
+
-Probability: 1.0
+Expression:  <\{_1} -> n1 : ({m} : Node) -> Node>
-
+Type:        ({m} : Node) -> Node
-Expression:  <\{_1} -> ?1 : ({m} : Node) -> Node>
+Probability: 1.0
-Type:        ({m} : Node) -> Node
+
-Probability: 1.0
+Expression:  <\{_1} -> ?1 : ({m} : Node) -> Node>
-
+Type:        ({m} : Node) -> Node
-Expression:  <link {n1} {n1} (id {n1}) : Path n1 n1>
+Probability: 1.0
-Type:        Path n1 n1
+
-Probability: 1.0
+Expression:  <link {n1} {n1} (id {n1}) : Path n1 n1>
-
+Type:        Path n1 n1
-n1
+Probability: 1.0
-
+
+n1
+

testsuite/runtime/typecheck/typecheck.gfs.gold

@@ -1,86 +1,118 @@
-Couldn't match expected type Nat
+Couldn't match expected type Nat
-       against inferred type String
+       against inferred type String
-In the expression: "0"
+In the expression: "0"
-Category Int should have 0 argument(s), but has been given 1
+CallStack (from HasCallStack):
-In the type: Int 0
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-A function type is expected for the expression 1 instead of type Int
+Category Int should have 0 argument(s), but has been given 1
-Couldn't match expected type Int -> Int
+In the type: Int 0
-       against inferred type Int
+CallStack (from HasCallStack):
-In the expression: 1
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-unknown category of function identifier unknown_fun
+A function type is expected for the expression 1 instead of type Int
-
+CallStack (from HasCallStack):
-Category unknown_cat is not in scope
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Cannot infer the type of expression \x -> x
+Couldn't match expected type Int -> Int
-A function type is expected for the expression \x -> x instead of type Int
+       against inferred type Int
-Expression:  append (succ (succ zero)) (succ zero) (vector (succ (succ zero))) (vector (succ zero))
+In the expression: 1
-Type:        Vector (succ (succ (succ zero)))
+CallStack (from HasCallStack):
-Probability: 3.532127097800926e-8
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-
+unknown category of function identifier unknown_fun
-Expression:  <\m, n -> vector (plus m n) : (m : Nat) -> (n : Nat) -> Vector (plus m n)>
+
-Type:        (m : Nat) -> (n : Nat) -> Vector (plus m n)
+Category unknown_cat is not in scope
-Probability: 1.0
+CallStack (from HasCallStack):
-
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Expression:  mkMorph (\x -> succ zero)
+Cannot infer the type of expression \x -> x
-Type:        Morph (\v0 -> succ zero)
+CallStack (from HasCallStack):
-Probability: 0.5
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-
+A function type is expected for the expression \x -> x instead of type Int
-Expression:  idMorph (mkMorph (\x -> x))
+CallStack (from HasCallStack):
-Type:        Nat
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Probability: 0.125
+Expression:  append (succ (succ zero)) (succ zero) (vector (succ (succ zero))) (vector (succ zero))
-
+Type:        Vector (succ (succ (succ zero)))
-Couldn't match expected type Morph (\v0 -> v0)
+Probability: 3.532127097800926e-8
-       against inferred type Morph (\v0 -> succ zero)
+
-In the expression: mkMorph (\x -> succ zero)
+Expression:  <\m, n -> vector (plus m n) : (m : Nat) -> (n : Nat) -> Vector (plus m n)>
-Expression:  <append zero (succ zero) : Vector zero -> Vector (succ zero) -> Vector (succ zero)>
+Type:        (m : Nat) -> (n : Nat) -> Vector (plus m n)
-Type:        Vector zero -> Vector (succ zero) -> Vector (succ zero)
+Probability: 1.0
-Probability: 1.0
+
-
+Expression:  mkMorph (\x -> succ zero)
-Expression:  <\n, v1, n1, v2 -> append n n1 v1 v2 : (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)>
+Type:        Morph (\v0 -> succ zero)
-Type:        (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)
+Probability: 0.5
-Probability: 1.0
+
-
+Expression:  idMorph (mkMorph (\x -> x))
-Category EQ is not in scope
+Type:        Nat
-Expression:  <\v1, v2 -> cmpVector ?7 v1 v2 : Vector ?7 -> Vector ?7 -> Int> (vector ?7)
+Probability: 0.125
-Type:        Vector ?7 -> Int
+
-Probability: 0.3333333333333333
+Couldn't match expected type Morph (\v0 -> v0)
-
+       against inferred type Morph (\v0 -> succ zero)
-Couldn't match expected type (m : Nat) -> Vector ?1
+In the expression: mkMorph (\x -> succ zero)
-       against inferred type (n : Nat) -> Vector n
+CallStack (from HasCallStack):
-In the expression: vector
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Expression:  f1 (\v -> v) vector
+Expression:  <append zero (succ zero) : Vector zero -> Vector (succ zero) -> Vector (succ zero)>
-Type:        Int
+Type:        Vector zero -> Vector (succ zero) -> Vector (succ zero)
-Probability: 5.555555555555555e-2
+Probability: 1.0
-
+
-Expression:  f1 (\v -> succ v) (\x -> vector (succ x))
+Expression:  <\n, v1, n1, v2 -> append n n1 v1 v2 : (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)>
-Type:        Int
+Type:        (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)
-Probability: 0.16666666666666666
+Probability: 1.0
-
+
-Couldn't match expected type Vector x
+Category EQ is not in scope
-       against inferred type Vector (succ x)
+CallStack (from HasCallStack):
-In the expression: vector (succ x)
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-Couldn't match expected type Vector n
+Expression:  <\v1, v2 -> cmpVector ?7 v1 v2 : Vector ?7 -> Vector ?7 -> Int> (vector ?7)
-       against inferred type Vector (succ n)
+Type:        Vector ?7 -> Int
-In the expression: vector (succ n)
+Probability: 0.3333333333333333
-Expression:  h ?2 (u0 ?2)
+
-Type:        Int
+Couldn't match expected type (m : Nat) -> Vector ?1
-Probability: 8.333333333333333e-2
+       against inferred type (n : Nat) -> Vector n
-
+In the expression: vector
-Couldn't match expected type U ?2 ?2
+CallStack (from HasCallStack):
-       against inferred type U ?2 (succ ?2)
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-In the expression: u1 ?2
+Expression:  f1 (\v -> v) vector
-Meta variable(s) ?11 should be resolved
+Type:        Int
-in the expression: cmpVector (succ (succ zero)) (vector (succ (succ zero))) (append ?11 (succ zero) (vector ?11) (vector (succ zero)))
+Probability: 5.555555555555555e-2
-Expression:  diff (succ (succ (succ zero))) (succ (succ zero)) (vector (succ (succ (succ (succ (succ zero)))))) (vector (succ (succ (succ zero))))
+
-Type:        Vector (succ (succ zero))
+Expression:  f1 (\v -> succ v) (\x -> vector (succ x))
-Probability: 2.1558392930913853e-12
+Type:        Int
-
+Probability: 0.16666666666666666
-Couldn't match expected type Vector (plus (succ (succ (succ zero))) (succ (succ zero)))
+
-       against inferred type Vector (succ (succ (succ (succ zero))))
+Couldn't match expected type Vector x
-In the expression: vector (succ (succ (succ (succ zero))))
+       against inferred type Vector (succ x)
-Expression:  idMorph (mkMorph2 (\x -> x) (vector zero))
+In the expression: vector (succ x)
-Type:        Nat
+CallStack (from HasCallStack):
-Probability: 1.0416666666666666e-2
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
-
+Couldn't match expected type Vector n
-Couldn't match expected type Vector zero
+       against inferred type Vector (succ n)
-       against inferred type Vector n
+In the expression: vector (succ n)
-In the expression: x
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
+Expression:  h ?2 (u0 ?2)
+Type:        Int
+Probability: 8.333333333333333e-2
+
+Couldn't match expected type U ?2 ?2
+       against inferred type U ?2 (succ ?2)
+In the expression: u1 ?2
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
+Meta variable(s) ?11 should be resolved
+in the expression: cmpVector (succ (succ zero)) (vector (succ (succ zero))) (append ?11 (succ zero) (vector ?11) (vector (succ zero)))
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
+Expression:  diff (succ (succ (succ zero))) (succ (succ zero)) (vector (succ (succ (succ (succ (succ zero)))))) (vector (succ (succ (succ zero))))
+Type:        Vector (succ (succ zero))
+Probability: 2.1558392930913853e-12
+
+Couldn't match expected type Vector (plus (succ (succ (succ zero))) (succ (succ zero)))
+       against inferred type Vector (succ (succ (succ (succ zero))))
+In the expression: vector (succ (succ (succ (succ zero))))
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands
+Expression:  idMorph (mkMorph2 (\x -> x) (vector zero))
+Type:        Nat
+Probability: 1.0416666666666666e-2
+
+Couldn't match expected type Vector zero
+       against inferred type Vector n
+In the expression: x
+CallStack (from HasCallStack):
+  error, called at src/compiler/GF/Command/Commands.hs:744:43 in gf-3.10.4-EdD6fabQUzM4AhRenbxTb3:GF.Command.Commands