1 files changed, 9 insertions, 0 deletions
diff --git a/Testing/Semantic/t3-4.p b/Testing/Semantic/t3-4.p
new file mode 100644
index 0000000..73dc520
--- /dev/null
+++ b/Testing/Semantic/t3-4.p
@@ -0,0 +1,9 @@
+(* ERROR: mismatched type for index variable in FOR loops *)
+program main( input, output );
+  var a: integer;
+  var x: real;
+begin
+  for x := 1 to 5 do
+    a := a + 1
+end.
+