@@ -0,0 +1,8 @@
+program tmp;
+
+var
+ Molo :Boolean;
+begin
+ Molo := 1; { This should give out a Type mismatch error ! }
+end.
carl