Extensible functions

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

Test case ID: R0115
Language: ST

Code:

tests2/t0115.st
PROGRAM Test_R0115
    VAR
        i1,i2,i3 : INT;
        o1,o2,o3,o5,o6 : INT;
        eno2,eno3 : BOOL;
        l1,l2: BOOL;
    END_VAR

    o5 := MUL( 3 , 4 , 1);
    i1 := 20;
    o1 := ADD( i1, 30 ,60 );
    o2 := ADD(IN1 := 21 , IN2 := 30 , IN3 := 60 , ENO => eno2);
    o3 := ADD(EN := FALSE , IN1 := 22 , IN2 := 30 , IN3 := 60 , ENO => eno3);
    o6 := MUL( IN1 := 3 , IN2 := 4 ,IN3 := 2);
    l1 := LE( 3, 10);
    l2 := LE( 10, 2);

_GEB_ASSERT_(eno2 = 1);
_GEB_ASSERT_(eno3 = 0);
_GEB_ASSERT_(l1 = 1);
_GEB_ASSERT_(l2 = 0);
_GEB_ASSERT_(o1 = 110);
_GEB_ASSERT_(o2 = 111);
_GEB_ASSERT_(o3 = 0);
_GEB_ASSERT_(o5 = 12);
_GEB_ASSERT_(o6 = 24);


END_PROGRAM