+ add test from Mantis #31305 for completeness sake

git-svn-id: trunk@35377 -

.gitattributes

@@ -15361,6 +15361,7 @@ tests/webtbs/tw31120.pp svneol=native#text/pascal
 tests/webtbs/tw3113.pp svneol=native#text/plain
 tests/webtbs/tw31201.pp svneol=native#text/pascal
 tests/webtbs/tw3124.pp svneol=native#text/plain
+tests/webtbs/tw31305.pp svneol=native#text/pascal
 tests/webtbs/tw3131.pp svneol=native#text/plain
 tests/webtbs/tw3137.pp svneol=native#text/plain
 tests/webtbs/tw3143.pp svneol=native#text/plain

tests/webtbs/tw31305.pp

@@ -0,0 +1,21 @@
+program tw31305;
+
+{$MODE DELPHI}
+
+type
+  TInterfaceStubLog = object
+    TimeStamp64: Int64;
+    WasError: boolean;
+    Method: Pointer;
+    Params: UTF8String;
+    CustomResults: UTF8String;
+  end;
+
+var
+  a,b: TInterfaceStubLog;
+begin
+  a.Method := Pointer($1);
+  CopyArray(@b, @a, TypeInfo(TInterfaceStubLog), 1);
+  if not Assigned(b.Method) then
+    Halt(1);
+end.