//fpc mist.pas -CfSSE2 -CpCOREAVX -Mobjfpc -O2 -Twin32
type float = single;
TVector = array of float;
TMatrix = array of TVector;
function mtx_cholesky (const a:TMatrix):TMatrix;
var l : TMatrix;
c : float;
begin
c := 3;
c := sqrt(c); //-> invalid combination of opcode and operand
SetLength (l,3,3);
l[0,0]:=c;
result:=l;
end;
begin
end.