EN input in FunctionBlocks

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

Test case ID: R0130
Language: ST

Code:

tests2/t0130.st

FUNCTION_BLOCK ABSZ_R0130 
VAR_INPUT
    X : REAL;
END_VAR
VAR_OUTPUT
    Z : REAL;
END_VAR
VAR
    h : INT;
END_VAR
    IF( X < 0.0 ) THEN Z := -X;
    ELSE Z := X;
    END_IF;
END_FUNCTION_BLOCK



PROGRAM R0130
VAR
    A,B : REAL;
    fb : ABSZ_R0130;
END_VAR
    A := -1.234;
    B := 0.0;
    fb.EN := FALSE;
    fb( X := A, Z => B );

_GEB_ASSERT_EQFLOAT_(A , -1.234);
_GEB_ASSERT_EQFLOAT_(B , 0.0);
    
END_PROGRAM