소스 검색

* test for quotes in skipuntildirective

peter 25 년 전
부모
커밋
c6158587ef
1개의 변경된 파일5개의 추가작업 그리고 0개의 파일을 삭제
  1. 5 0
      tests/tbs/tb0337.pp

+ 5 - 0
tests/tbs/tb0337.pp

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