+ added test for setting string funciton result in nested procedure

    (fails under 1.1 currently)

tests/tbs/tb0416.pp

@@ -0,0 +1,19 @@
+function f: string;
+
+  procedure t;
+    begin
+      f := 'test';
+    end;
+
+begin
+  t;
+end;
+
+
+begin
+  if f <> 'test' then
+    begin
+      writeln('error!');
+      halt(1);
+    end;
+end.