From dcd29a38b11c6905c96250e421453d15ab45bc5e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 6 Jan 2001 19:40:44 +0000
Subject: [PATCH]   * added

---
 tests/webtbs/tw1323.pp | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tests/webtbs/tw1323.pp

diff --git a/tests/webtbs/tw1323.pp b/tests/webtbs/tw1323.pp
new file mode 100644
index 0000000000..47d62b656e
--- /dev/null
+++ b/tests/webtbs/tw1323.pp
@@ -0,0 +1,41 @@
+{ %OPT=-O2 }
+{$mode objfpc}
+
+Function SmartPos(Pattern:Char; const Target:AnsiString; SrchBeg,SrchEnd: LongInt): LongInt;
+Var
+        i       : LongInt;
+        l       : LongInt;
+        p       : char;
+        t       : char;
+Begin
+
+
+        l := Length(Target);
+
+        p := Pattern;
+
+        for i := SrchBeg To l do begin
+                t := Target[i];
+                if t = p then begin
+                        Writeln('Exit value ', i);
+                        Result := i;
+                        Exit(i);
+                end;
+        end;
+
+        Writeln('Exit value 0');
+        Exit(0);
+End;
+
+var
+        p1 : Integer;
+
+begin
+
+        p1 := 0;
+        writeln(p1);
+        p1 := smartpos(':', '20394583245:092834523409:039485', 1, 20);
+        writeln(p1);
+        if p1<>12 then
+         halt(1);
+end.