tests/test/tisoext6.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %fail }
{ this is not supposed to compile in non iso mode }
var
  f : text;
  s : array[0..10] of char;
begin
  rewrite(f,'tisoext4.tmp');
  write(f,'FPC');
  close(f);
  writeln('ok');
end.