REPEAT loop

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

Test case ID: R0052
Language: ST

Code:

tests2/t0052.st

PROGRAM Test_R0052

VAR
    r : REAL     :=     -1.1;
    i : INT;
END_VAR

    i := 1;
    
    REPEAT
        // This is the same as r := r + 2
        r := r + 0.6;
        r := r + 0.4;
        r := r + 1.2;
        r := r - 0.2;
        
        i := i + 2;
    UNTIL( i > 10 ) 
    END_REPEAT;

_GEB_ASSERT_(i = 11);
_GEB_ASSERT_EQFLOAT_(r , 8.9);    
    
END_PROGRAM