Repetead calling of Function Blocks

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

Test case ID: R0120
Language: ST

Code:

tests2/t0120.st

FUNCTION_BLOCK COUNT_R0120

    VAR_INPUT
        x : INT;
    END_VAR
    
    VAR_OUTPUT
        count : INT := 0;
    END_VAR
    
    count := count + x;
    
END_FUNCTION_BLOCK

PROGRAM R0120

    VAR
        i : INT := 42;
        j : INT;
        c : COUNT_R0120;
    END_VAR
    
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);
    c(x := i, count => j);

_GEB_ASSERT_(i = 42);
_GEB_ASSERT_(j = 420);
    
END_PROGRAM