Test case for issue #1024

tests/issues/issue1024.icry

@@ -0,0 +1,4 @@
+:l issue1024a.cry
+:l issue1024b.cry
+
+someFunc`{[16]}

tests/issues/issue1024.icry.stdout

@@ -0,0 +1,27 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module Main
+[warning] at issue1024a.cry:1:12--1:24 Unused name: f
+[warning] at issue1024a.cry:2:14--2:24 Unused name: f
+[warning] at issue1024a.cry:4:15--4:20 Unused name: i
+[warning] at issue1024a.cry:4:22--4:32 Unused name: f
+[warning] at issue1024a.cry:4:34--4:39 Unused name: g
+
+[error] at issue1024a.cry:1:6--1:11:
+  Illegal kind assigned to type variable: f`767
+  Unexpected: # -> *
+  where
+  f`767 is signature variable 'f' at issue1024a.cry:1:12--1:24
+[error] at issue1024a.cry:2:6--2:13:
+  Illegal kind assigned to type variable: f`768
+  Unexpected: Prop
+  where
+  f`768 is signature variable 'f' at issue1024a.cry:2:14--2:24
+[error] at issue1024a.cry:4:13--4:49:
+  Illegal kind assigned to type variable: f`770
+  Unexpected: # -> *
+  where
+  f`770 is signature variable 'f' at issue1024a.cry:4:22--4:32
+Loading module Cryptol
+Loading module Main
+0xffff

tests/issues/issue1024a.cry

@@ -0,0 +1,5 @@
+type Funny (f : # -> *) = Integer
+type Strange (f : Prop) = Integer
+
+funnyFunc : { i : #, f : # -> *, g : * } Integer
+funnyFunc = zero

tests/issues/issue1024b.cry

@@ -0,0 +1,5 @@
+
+type constraint PredSyn (a : *) (p:Prop) = (Zero a, Cmp a, p)
+
+someFunc : {a} (PredSyn a (Logic a)) => a
+someFunc = ~zero