IF-ELSE construct

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

Test case ID: R0030
Language: ST

Code:

tests2/t0030.st

PROGRAM Test_R0030

VAR
    r : REAL     :=     - 1.4;
    b : BOOL     :=     FALSE;
END_VAR

    IF( r > 2.0 ) THEN
        r := 2.0 * r;
    ELSIF( r < 0.0 ) THEN
        r := r + 1.0;
    ELSE
        r := - r;
    END_IF;
    b := NOT b;
    (* IF( b < FALSE) THEN
       r := 3.4;
    END_IF; *)


_GEB_ASSERT_(b = 1);
_GEB_ASSERT_EQFLOAT_(r , -0.4);
    
END_PROGRAM