diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-03-21 23:33:44 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-03-21 23:33:44 +0000 |
| commit | f55b554ec2d4b6675fb41f9fb5bbb76acbcc123b (patch) | |
| tree | c4d0955f2989d7fc18631c657ee29ba80eae3240 /tests/webtbs/tw15930.pp | |
| parent | 25ee23201999eec6af70f51a6193448a871cfa0d (diff) | |
| download | fpc-f55b554ec2d4b6675fb41f9fb5bbb76acbcc123b.tar.gz | |
+ also support & to escape identifiers (and for octal notation) in Delplhi
mode (patch by Blaise Thorn, mantis #15930)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15031 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/webtbs/tw15930.pp')
| -rw-r--r-- | tests/webtbs/tw15930.pp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/webtbs/tw15930.pp b/tests/webtbs/tw15930.pp new file mode 100644 index 0000000000..51edc2fbf7 --- /dev/null +++ b/tests/webtbs/tw15930.pp @@ -0,0 +1,16 @@ +{ %norun } + +{$mode delphi} + +var + &file: integer; + &do: string; + &in: boolean; + &for: char; +begin + &file:=1; + &do:='abc'; + &in:=true; + &for:='h' +end. + |