* test for quotes in skipuntildirective

tests/tbs/tb0337.pp

@@ -0,0 +1,5 @@
+var
+  s : string;
+begin
+  s:={$ifdef fpc}'~[v]~'{$else}'~['#25']~'{$endif};
+end.