blob: 0fa248de879e1a0aaa56fff88e89c706089e1f56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
program StringTest5;
{$V+}
var
s :String;
procedure P( s: OpenString);
begin
writeln(s);
if (high(s)<>255) or
(s<>'12345') then
halt(1);
end;
begin
P('12345');
s:='12345';
p(s);
{Won't compile.
FPC or Turbo Pascal mode: Internal error 200405241
Delphi mode: Signal 291. Save files and restart IDE. (Can't save.)}
end.
|