tests/webtbs/tw15930.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %norun }

{$mode delphi}

var
  &file: integer;
  &do: string;
  &in: boolean;
  &for: char;
begin
  &file:=1;
  &do:='abc';
  &in:=true;
  &for:='h'
end.