+ test for previous commit

git-svn-id: trunk@8271 -

.gitattributes

@@ -8344,6 +8344,7 @@ tests/webtbs/tw8977.pp svneol=native#text/plain
 tests/webtbs/tw9026.pp svneol=native#text/plain
 tests/webtbs/tw9054.pp svneol=native#text/plain
 tests/webtbs/tw9059.pp svneol=native#text/plain
+tests/webtbs/tw9072.pp svneol=native#text/plain
 tests/webtbs/tw9073.pp svneol=native#text/plain
 tests/webtbs/tw9076.pp svneol=native#text/plain
 tests/webtbs/tw9076a.pp svneol=native#text/plain

tests/webtbs/tw9072.pp

@@ -0,0 +1,15 @@
+{ %opt=-Sew }
+
+{$mode tp}
+
+var
+  a: array[1..2] of longint;
+  l: longint;
+begin
+  l:=0;
+  for a[1]:=1 to 10 do
+    for a[2]:=1 to 10 do
+      inc(l);
+  if (l<>100) then
+    halt(1);
+end.