*** empty log message ***

tests/webtbs/tbug701b.pp

@@ -1,5 +1,6 @@
 program memhole;
-uses tbug701d,tbug701c;
-begin  
-   TestProc('test');
+uses tbug701d,tbug701e,tbug701c;
+begin
+   // the tbug701c is to be on the save side
+   tbug701c.TestProc('test');
 end.

tests/webtbs/tbug701c.pp

@@ -3,15 +3,20 @@ unit tbug701c;
   interface  
     procedure TestProc(arg: AnsiString);
 
+    var
+       s1: array[0..9] of AnsiString;
   implementation
 
     var
-       s: array[0..9] of AnsiString;
+       s2: array[0..9] of AnsiString;
   
     procedure TestProc(arg: AnsiString);
 
       begin
-         s[0] := arg + '!';
+         s1[0] := arg + '!s10';
+         s1[3] := arg + '!s13';
+         s2[4] := arg + '!s24';
+         s2[7] := arg + '!s27';
       end;
 
 end.

tests/webtbs/tbug701d.pp

@@ -8,9 +8,9 @@ var
    startmem : longint;
 
 initialization
-   // startmem:=memavail;
+   startmem:=memavail;
 finalization
-   // if startmem<>memavail then
+   if startmem<>memavail then
      begin      
        writeln('Problem with ansistrings in units');
        halt(1);

tests/webtbs/tbug701e.pp

@@ -0,0 +1,25 @@
+unit tbug701e;
+
+  interface
+
+    procedure TestProc(arg: AnsiString);
+
+    var
+       s1: array[0..9] of AnsiString;
+
+  implementation
+
+    var
+       s2: array[0..9] of AnsiString;
+  
+    procedure TestProc(arg: AnsiString);
+
+      begin
+         s1[0] := arg + '!s10';
+         s1[3] := arg + '!s13';
+         s2[4] := arg + '!s24';
+         s2[7] := arg + '!s27';
+      end;
+initialization
+finalization
+end.