From 001417bb47b614b0965f25c28a9e1882eec0b99c Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 18 Feb 2016 21:58:34 +0000
Subject: [PATCH]   + test from mantis #28667

git-svn-id: trunk@33103 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw28667.pp | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 tests/webtbs/tw28667.pp

diff --git a/.gitattributes b/.gitattributes
index 8a2bb4de10..c3ae571c42 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14875,6 +14875,7 @@ tests/webtbs/tw28632.pp -text svneol=native#text/plain
 tests/webtbs/tw28641.pp svneol=native#text/plain
 tests/webtbs/tw2865.pp svneol=native#text/plain
 tests/webtbs/tw28650.pp svneol=native#text/pascal
+tests/webtbs/tw28667.pp svneol=native#text/plain
 tests/webtbs/tw28674.pp svneol=native#text/pascal
 tests/webtbs/tw28702.pp svneol=native#text/plain
 tests/webtbs/tw28713.pp svneol=native#text/pascal
diff --git a/tests/webtbs/tw28667.pp b/tests/webtbs/tw28667.pp
new file mode 100644
index 0000000000..01f33b0c06
--- /dev/null
+++ b/tests/webtbs/tw28667.pp
@@ -0,0 +1,30 @@
+{%CPU=i386}
+{%OPT=-O2 -Cg}
+
+{$mode delphi}
+program a;
+
+type
+  TChars=set of AnsiChar;
+
+function get_char(var buf;var ofs:integer;const max:integer;const st:TChars):AnsiChar;
+var
+  rbuf:array[0..0] of AnsiChar absolute buf;
+begin
+  result:=#$20;
+  while (ofs<max) and  (rbuf[ofs] in st) do
+  begin
+    Result:=rbuf[ofs];
+    inc(ofs);
+    break;
+  end;
+end;
+
+var
+ ofs:integer;
+ buf:array[0..100] of ansichar;
+
+begin
+  ofs:=0;
+  get_char(buf,ofs,100,['=','*'])
+end.