path: root/tests/i/real-observations/program.cps

FUNCTION Scale(Value : REAL) RETURNS REAL
    RETURN Value * 2.0
ENDFUNCTION
DECLARE R : REAL
R <- 5 / 2
OUTPUT R = 2.5, ":", R > 2.0, ":", Scale(R) = 5.0
OUTPUT (0.5 + 0.25) = 0.75, ":", (-0.0 = 0.0)