* test for crash with operator search

git-svn-id: trunk@540 -

.gitattributes

@@ -5466,6 +5466,7 @@ tests/webtbf/tw3738.pp svneol=native#text/plain
 tests/webtbf/tw3740.pp svneol=native#text/plain
 tests/webtbf/tw3790.pp svneol=native#text/plain
 tests/webtbf/tw3841.pp svneol=native#text/plain
+tests/webtbf/tw4103.pp svneol=native#text/plain
 tests/webtbf/tw4111.pp svneol=native#text/plain
 tests/webtbf/tw4139.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
@@ -5474,6 +5475,7 @@ tests/webtbf/uw0840b.pp svneol=native#text/plain
 tests/webtbf/uw0856.pp svneol=native#text/plain
 tests/webtbf/uw2414.pp svneol=native#text/plain
 tests/webtbf/uw3450.pp svneol=native#text/plain
+tests/webtbf/uw4103.pp svneol=native#text/plain
 tests/webtbs/tu2002.pp svneol=native#text/plain
 tests/webtbs/tw0555.pp svneol=native#text/plain
 tests/webtbs/tw0630.pp svneol=native#text/plain

tests/webtbf/tw4103.pp

@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 4103 }
+{ Submitted by "Daniël Mantione" on  2005-06-21 }
+{ e-mail: [email protected] }
+uses uw4103;
+
+var j:junk;
+
+begin
+  j:=1;
+end.

tests/webtbf/uw4103.pp

@@ -0,0 +1,31 @@
+unit uw4103;
+
+interface
+
+type    junk=record
+            data:string;
+        end;
+
+operator :=(const s:string) result:junk;
+
+implementation
+
+operator :=(const s:string) result:junk;
+
+begin
+  result.data:=s;
+end;
+
+operator :=(const n:longint) result:junk;
+
+begin
+  str(n,result.data);
+end;
+
+operator :=(const n:cardinal) result:junk;
+
+begin
+  str(n,result.data);
+end;
+
+end.