added test cases for polymorphic and record types in the abstract syntax

This commit is contained in:
krasimir
2010-01-31 22:16:35 +00:00
parent 5eeb41a67f
commit b625b416ee
4 changed files with 24 additions and 0 deletions

View File

@@ -0,0 +1,5 @@
abstract PolyTypes = {
fun f : (A : Type) -> A ;
}

View File

@@ -0,0 +1,5 @@
abstract RecTypes = {
fun f : {s:Int} -> Int ;
}

View File

@@ -0,0 +1,2 @@
i -src testsuite/compiler/typecheck/abstract/PolyTypes.gf
i -src testsuite/compiler/typecheck/abstract/RecTypes.gf

View File

@@ -0,0 +1,12 @@
checking module PolyTypes
The term Type
is not allowed in the abstract syntax
in type of function f in PolyTypes.gf, line 3