fpcsrc/tests/webtbs/tw3048.pp


1
2
3
4
5
6
7
8
9

{ Source provided for Free Pascal Bug Report 3048 }
{ Submitted by "GBD" on  2004-04-15 }
{ e-mail:  }
{$mode delphi}
var a ,b : array of word;

begin
 if a<>b then writeln('ok');
end.