1 files changed, 14 insertions, 0 deletions
diff --git a/Testing/Semantic/t5-4.p b/Testing/Semantic/t5-4.p
new file mode 100644
index 0000000..a31211f
--- /dev/null
+++ b/Testing/Semantic/t5-4.p
@@ -0,0 +1,14 @@
+(* ERROR: function updating non-local variable *)
+program main( input, output );
+  var a: integer;
+
+  function foo(b: integer): integer;
+  begin
+    foo := a;
+    a := b
+  end;
+
+begin
+
+end.
+