[fpc-pascal] Passing a string to open array of string

[cobines]

Hello.

The following program compiles and correctly prints 'something'. Is it
something supported or a bug? When I change it to Proc('something') it
doesn't compile (as expected).

program Project1;
{$mode objfpc}{$H+}

procedure Proc(const s: array of string);
begin
  WriteLn(s[0]);
end;

var
  s: string = 'something';
begin
  Proc(s);
end.

--
cobines