EXIT from loop

This test case it part of the test suite proposed for new devices.

Test case ID: R0053
Language: ST

Code:

tests2/t0053.st

PROGRAM Test_R0053

VAR
    i,j : INT;
    r, rr, rrr : REAL;
END_VAR

    r := 0.0;
    rrr := 0.0;
    FOR j := 1 TO 5
    DO
        r := 0.0;
        rr := 0.5;
    
        FOR i := 1 TO 10
        DO
            r := r + rr;
            rr := rr / 2.0;
            rrr := rrr + 0.2;
            
            IF( i > 3 ) THEN 
                EXIT; // this should go outside the innermost FOR
            END_IF;
        END_FOR;    
    END_FOR;    
    rr := rr + 0.000111;

_GEB_ASSERT_EQFLOAT_(r , 0.9375);
_GEB_ASSERT_EQFLOAT_(rr , 0.031361);
_GEB_ASSERT_EQFLOAT_(rrr , 4.0);

END_PROGRAM