From c6158587ef26be3d1944d552d2ce832eba1f5708 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 18 Dec 2000 18:03:01 +0000
Subject: [PATCH]   * test for quotes in skipuntildirective

---
 tests/tbs/tb0337.pp | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/tbs/tb0337.pp

diff --git a/tests/tbs/tb0337.pp b/tests/tbs/tb0337.pp
new file mode 100644
index 0000000000..b8d2beafbe
--- /dev/null
+++ b/tests/tbs/tb0337.pp
@@ -0,0 +1,5 @@
+var
+  s : string;
+begin
+  s:={$ifdef fpc}'~[v]~'{$else}'~['#25']~'{$endif};
+end.