Test case R0053
Full test suiteDevice test case
EXIT from loop
This test case it part of the test suite proposed for new devices.
Test case ID: R0053
Language: ST
tests2/t0053.stPROGRAM 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