* Added two more tests based on bugs found by Marģers during development

tests/test/tpure8.pp

@@ -0,0 +1,18 @@
+{ %OPT=-Sew }
+
+program tpure8;
+
+function foo(i:longword):ansistring; pure;
+var s : shortstring;
+      n : longword;
+begin
+  s:='';
+  for n:=1 to i do s:=s +'a';
+  foo:=s; // Make sure assigning to an ansistring result doesn't make the pure function ineligible.
+end;
+
+begin
+  if (foo(9) <> 'aaaaaaaaa') then
+    Halt(1);
+  writeln('ok');
+end. 

tests/test/tpure9.pp

@@ -0,0 +1,15 @@
+program tpure9;
+
+function foo(i:longword):shortstring; pure;
+var s : shortstring;
+      n : longword;
+begin
+  s:='';
+  for n:=1 to i do s:=s +'a';
+  //-- not assigning return value - make sure this doesn't cause a crash
+end;
+
+begin
+  writeln(foo(9));
+  writeln('ok');
+end.