1 files changed, 11 insertions, 0 deletions
diff --git a/Testing/Semantic/t1-3.p b/Testing/Semantic/t1-3.p
new file mode 100644
index 0000000..a224b22
--- /dev/null
+++ b/Testing/Semantic/t1-3.p
@@ -0,0 +1,11 @@
+(* LEGAL: non-local names visible from inner scopes *)
+program main( input, output );
+  var a: integer;
+  procedure boo(x: integer);
+  begin
+    a := x
+  end;
+begin
+  boo(a)
+end.
+