tests/test/tisoext5.pp


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

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