summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw14941.pp
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.