From 7b5196a4bc26e4cd00cd59f48ee586d8d3f01d43 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 7 Aug 2011 20:44:55 +0000
Subject: [PATCH]  Test fix of infinite loop in PUSH/POP directives

git-svn-id: trunk@18142 -
---
 .gitattributes          |  1 +
 tests/webtbs/tw19864.pp | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)
 create mode 100644 tests/webtbs/tw19864.pp

diff --git a/.gitattributes b/.gitattributes
index 538d8339fb..452ae4670e 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -11707,6 +11707,7 @@ tests/webtbs/tw1950.pp svneol=native#text/plain
 tests/webtbs/tw19548.pp svneol=native#text/pascal
 tests/webtbs/tw1964.pp svneol=native#text/plain
 tests/webtbs/tw19700.pp svneol=native#text/plain
+tests/webtbs/tw19864.pp svneol=native#text/pascal
 tests/webtbs/tw1996.pp svneol=native#text/plain
 tests/webtbs/tw2001.pp svneol=native#text/plain
 tests/webtbs/tw2002.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw19864.pp b/tests/webtbs/tw19864.pp
new file mode 100644
index 0000000000..77556239c9
--- /dev/null
+++ b/tests/webtbs/tw19864.pp
@@ -0,0 +1,32 @@
+{ %NORUN }
+unit tw19864;
+
+{$mode objfpc}
+
+interface
+
+implementation
+
+procedure testfun;
+begin
+  {$WARN SYMBOL_PLATFORM OFF}
+  {$WARN SYMBOL_PLATFORM ON}
+  {$PUSH}{$R-,Q-}
+  {$POP}
+  {$PUSH}{$R-,Q-}
+  {$POP}
+end;
+  {$WARN SYMBOL_PLATFORM OFF}
+var
+  test1 : longint platform;
+  {$WARN SYMBOL_PLATFORM ON}
+
+var
+  test2 : longint platform;
+
+begin
+  {$WARN SYMBOL_PLATFORM OFF}
+  test2:=2;
+  {$WARN SYMBOL_PLATFORM ON}
+  test1:=1;
+end.