WHILE loop

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

Test case ID: R0051
Language: ST

Code:

tests2/t0051.st

PROGRAM Test_R0051

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

    i := 1;
    WHILE( i <= 10 )
    DO
        // 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;
    END_WHILE;
    
_GEB_ASSERT_(i = 11);
_GEB_ASSERT_EQFLOAT_(r , 8.9);
    
END_PROGRAM