Arrays with strings

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

Test case ID: R0167
Language: ST

Code:

tests2/t0167.st
TYPE
AS5 : ARRAY[1..2] OF STRING[5]  := [ 'Hi', STRING#'Bye' ];
S5 :  STRING[5];
AS5B : ARRAY[1..2] OF S5  := [ 'HiB', STRING#'ByeB' ];
END_TYPE

PROGRAM R0167
    VAR
        a: AS5;
        b: AS5B;
    END_VAR
    _GEB_ASSERT_(a[1] = 'Hi');
    _GEB_ASSERT_(a[2] = 'Bye');
    _GEB_ASSERT_(b[1] = 'HiB');
    a[1] := 'Hello!';    
    b[1] := 'Hello!!';    
    _GEB_ASSERT_(a[1] = 'Hello');
    _GEB_ASSERT_(b[1] = 'Hello');
    
END_PROGRAM