* test for quotes in skipuntildirective

This commit is contained in:
peter 2000-12-18 18:03:01 +00:00
parent 4c212d76d8
commit c6158587ef

5
tests/tbs/tb0337.pp Normal file
View File

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