diff --git a/testsuite/runtime/parser/Literals.gf b/testsuite/runtime/parser/Literals.gf
new file mode 100644
index 000000000..a32940e79
--- /dev/null
+++ b/testsuite/runtime/parser/Literals.gf
@@ -0,0 +1,8 @@
+abstract Literals = {
+  cat S ;
+  
+  fun IsString  : String -> S ;
+      IsInteger : Int    -> S ;
+      IsFloat   : Float  -> S ;
+
+}
\ No newline at end of file
diff --git a/testsuite/runtime/parser/LiteralsCnc.gf b/testsuite/runtime/parser/LiteralsCnc.gf
new file mode 100644
index 000000000..d91a222c8
--- /dev/null
+++ b/testsuite/runtime/parser/LiteralsCnc.gf
@@ -0,0 +1,9 @@
+concrete LiteralsCnc of Literals = {
+
+lincat S = Str ;
+
+lin IsString  x = x.s ++ "is string" ;
+lin IsInteger x = x.s ++ "is integer" ;
+lin IsFloat   x = x.s ++ "is float" ;
+
+}
\ No newline at end of file