Vectors are not detected as discrete variables

[Martin Sjölund]

The test whenDiscreteForLoop currently contains code like this:

model testWhenLoopA1
  Real x;
  discrete Real d[2];
  Integer n = 2;
equation
  der(x) = x+1;
algorithm
  when sample(0,0.1) then
    for i in 1:n loop
      d[i] := pre(d[i])+1;
    end for;
  end when;
end testWhenLoopA1;

The discrete keyword was added by me because OpenModelica does not add it for vectors assigned in a when-statement.