* new tests derived from tw8777 so we avoid that it is forgotten

git-svn-id: trunk@7196 -

.gitattributes

@@ -7279,6 +7279,9 @@ tests/webtbf/tw8451.pp svneol=native#text/plain
 tests/webtbf/tw8528.pp svneol=native#text/plain
 tests/webtbf/tw8583.pp svneol=native#text/plain
 tests/webtbf/tw8588.pp svneol=native#text/plain
+tests/webtbf/tw8777a.pp svneol=native#text/plain
+tests/webtbf/tw8777b.pp svneol=native#text/plain
+tests/webtbf/tw8777c.pp svneol=native#text/plain
 tests/webtbf/tw8780a.pp svneol=native#text/plain
 tests/webtbf/tw8780b.pp svneol=native#text/plain
 tests/webtbf/tw8780c.pp svneol=native#text/plain

tests/webtbf/tw8777a.pp

@@ -0,0 +1,34 @@
+{ %fail }
+program BugTest;
+
+{$mode objfpc}
+
+type
+  TTest = class
+  private
+    FTest: Integer;
+    procedure SetTest(const Value: Integer);
+  public
+    property Test: Integer read FTest write SetTest;
+  end;
+
+procedure p(var i : longint);
+  begin
+  end;
+
+{ TTest }
+
+procedure TTest.SetTest(const Value: Integer);
+begin
+  Writeln('SetTest called!');
+  FTest := Value;
+end;
+
+var
+  Test: TTest;
+
+begin
+  Test := TTest.Create;
+  Test.Test := 2;
+  p(Test.Test);
+end.

tests/webtbf/tw8777b.pp

@@ -0,0 +1,34 @@
+{ %fail }
+program BugTest;
+
+{$mode objfpc}
+
+type
+  TTest = class
+  private
+    FTest: Integer;
+    procedure SetTest(const Value: Integer);
+  public
+    property Test: Integer read FTest write SetTest;
+  end;
+
+procedure p(var i : longint);
+  begin
+  end;
+
+{ TTest }
+
+procedure TTest.SetTest(const Value: Integer);
+begin
+  Writeln('SetTest called!');
+  FTest := Value;
+end;
+
+var
+  Test: TTest;
+
+begin
+  Test := TTest.Create;
+  Test.Test := 2;
+  inc(Test.Test);
+end.

tests/webtbf/tw8777c.pp

@@ -0,0 +1,34 @@
+{ %fail }
+program BugTest;
+
+{$mode objfpc}
+
+type
+  TTest = class
+  private
+    FTest: Integer;
+    procedure SetTest(const Value: Integer);
+  public
+    property Test: Integer read FTest write SetTest;
+  end;
+
+procedure p(var i : longint);
+  begin
+  end;
+
+{ TTest }
+
+procedure TTest.SetTest(const Value: Integer);
+begin
+  Writeln('SetTest called!');
+  FTest := Value;
+end;
+
+var
+  Test: TTest;
+
+begin
+  Test := TTest.Create;
+  Test.Test := 2;
+  ReadLn(Test.Test);
+end.