new test for web bug #1407

tests/webtbf/tw1407.pp

@@ -0,0 +1,15 @@
+{ Source provided for Free Pascal Bug Report 1407 }
+{ Submitted by "vigo von harrach" on  2001-02-13 }
+{ e-mail: [email protected] }
+{ compiled with 1.04 on win32 }
+{ options : -B -CX -XXs -OG2p3 -So }
+var
+        a : array[1..10] of integer;
+        i : byte;
+begin
+        { both give compile time errors }
+        for a[1] := 1 to 10 do begin end;
+        for a[10] := 1 to 10 do begin end;
+        i:=5;
+        for a[i] := 1 to 10 do begin end;
+end.

tests/webtbs/tw1407.pp

@@ -0,0 +1,16 @@
+{ Source provided for Free Pascal Bug Report 1407 }
+{ Submitted by "vigo von harrach" on  2001-02-13 }
+{ e-mail: [email protected] }
+{ compiled with 1.04 on win32 }
+{ options : -B -CX -XXs -OG2p3 -So }
+var
+        a : array[1..10] of integer;
+        i : byte;
+begin
+        { both give compile time errors }
+        for a[1] := 1 to 10 do begin end;
+        for a[10] := 1 to 10 do begin end;
+        {i:=5;
+        for a[i] := 1 to 10 do begin end;
+        this fails in BP }
+end.