* proper test for web bug #701

tests/webtbs/tbug701b.pp

@@ -0,0 +1,5 @@
+program memhole;
+uses tbug701d,tbug701c;
+begin  
+   TestProc('test');
+end.

tests/webtbs/tbug701c.pp

@@ -0,0 +1,17 @@
+unit tbug701c;
+
+  interface  
+    procedure TestProc(arg: AnsiString);
+
+  implementation
+
+    var
+       s: array[0..9] of AnsiString;
+  
+    procedure TestProc(arg: AnsiString);
+
+      begin
+         s[0] := arg + '!';
+      end;
+
+end.

tests/webtbs/tbug701d.pp

@@ -0,0 +1,18 @@
+unit tbug701d;
+
+  interface
+
+  implementation 
+
+var
+   startmem : longint;
+
+initialization
+   // startmem:=memavail;
+finalization
+   // if startmem<>memavail then
+     begin      
+       writeln('Problem with ansistrings in units');
+       halt(1);
+     end;
+end.