ForEach giving error when dealing with REAL values

[ciriatico]

This test will crash when added to the InterpreterTest.scala:

test("BeeCrowd test of REAL banknotes") {
    val module = ScalaParser.parseResource("stmts/BeeBanknoteReal.oberon")

    assert(module.stmt.isDefined)

    assert(module.name == "BeeBanknoteReal")

    module.accept(interpreter)

    assert(interpreter.env.lookup("i") == Some(IntValue(12)))

    assert(evalArraySubscript("banknotesNeeded", 0) == IntValue(5))
    assert(evalArraySubscript("banknotesNeeded", 1) == IntValue(1))
    assert(evalArraySubscript("banknotesNeeded", 2) == IntValue(1))
    assert(evalArraySubscript("banknotesNeeded", 3) == IntValue(0))
    assert(evalArraySubscript("banknotesNeeded", 4) == IntValue(1))
    assert(evalArraySubscript("banknotesNeeded", 5) == IntValue(0))
    assert(evalArraySubscript("banknotesNeeded", 6) == IntValue(1))
    assert(evalArraySubscript("banknotesNeeded", 7) == IntValue(1))
    assert(evalArraySubscript("banknotesNeeded", 8) == IntValue(0))
    assert(evalArraySubscript("banknotesNeeded", 9) == IntValue(2))
    assert(evalArraySubscript("banknotesNeeded", 10) == IntValue(0))
    assert(evalArraySubscript("banknotesNeeded", 11) == IntValue(3))
}

Content of BeeBanknoteReal.oberon file:

MODULE BeeBanknoteReal;

TYPE
    realArray = ARRAY 12 OF REAL
    intArray = ARRAY 12 OF INTEGER

VAR
    banknotesValues: realArray;
    banknotesNeeded: intArray;
    value: REAL;
    i: INTEGER;
    v: REAL;

BEGIN
    value := 576.73;
    i := 0;

    banknotesValues[0] := 100.0;
    banknotesValues[1] := 50.0;
    banknotesValues[2] := 20.0;
    banknotesValues[3] := 10.0;
    banknotesValues[4] := 5.0;
    banknotesValues[5] := 2.0;
    banknotesValues[6] := 1.0;
    banknotesValues[7] := 0.5;
    banknotesValues[8] := 0.25;
    banknotesValues[9] := 0.1;
    banknotesValues[10] := 0.05;
    banknotesValues[11] := 0.01;

    FOREACH v IN banknotesValues
        banknotesNeeded[i] := FLOOR(value/v);
        value := value - v*banknotesNeeded[i];
        INC(i)
    END;
END

END BeeBanknoteReal.

A very similar test was implemented using only INTEGER values, so the issue is probably related to ForEach not being able to deal with REAL values. Also, the only implemented test to ForEach uses only INTEGER values.

[ciriatico]

Syntax errors found, code will be re-written.