Formal call to a FunctionBlock

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

Test case ID: R0090
Language: ST

Code:

tests2/t0090.st
(* Test function block: Copies 2 parameters to the output *)
FUNCTION_BLOCK FB_R0090

VAR_INPUT
    I1 : INT;
    I2 : REAL;
END_VAR
VAR_OUTPUT
    O1 : INT;
    O2 : REAL;
END_VAR

    O1 := I1;
    O2 := I2;
END_FUNCTION_BLOCK


PROGRAM R0090
VAR
    Z,ZZ : REAL;
    i1, o1 : INT;
    i2, o2 : REAL;
    t : FB_R0090;
END_VAR

    i1 := 1;
    i2 := 2.3;
    
    // Formal call to a function block
    t(  I2:=i2, I1:=i1, O2=>o2, O1=>o1);

_GEB_ASSERT_(o1 = 1);
_GEB_ASSERT_EQFLOAT_(o2 , 2.3);
    


END_PROGRAM