freepascal.compiler/tests/webtbf/tw1830.pp

{ %fail }

procedure confronta(primo,primo,comuni:string);
begin // primo==first
end;

var vett:array[1..10] of string;
begin
confronta(vett[1],vett[2],comuni);
end.