blob: a1552baec43932907658aba695de4c3d35573066 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ Old file: tbs0221.pp }
{ syntax parsing incompatibilities with tp7 OK 0.99.11 (PFV) }
var
r : double;
c : char;
begin
r:=1.;
c:=^.; { this compile in tp7, c should contain 'n'/#110 }
if c<>#110 then
begin
Writeln('FPC does not support ^. character!');
Halt(1);
end;
end.
|
