Arrays with date times and other types

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

Test case ID: R0019
Language: ST

Code:

tests2/t0019.st
TYPE
    T_VECTOR_TIME : ARRAY [1..10] OF TIME;
    T_VECTOR_INT : ARRAY [1..10] OF INT;
    T_VECTOR_REAL : ARRAY [1..10] OF REAL;
END_TYPE
 
PROGRAM TEST_R0019
    VAR
      V_TR : T_VECTOR_TIME;
      V_TI : T_VECTOR_INT;
      V_R  : T_VECTOR_REAL;
      V : TIME;
      X,i : INT;
      W: REAL;
    END_VAR
    
    V := REAL_TO_TIME(0.3);
    X := 3;
    FOR i := 1 TO 10  
    DO
       V_TR[i] := REAL_TO_TIME(INT_TO_REAL(i));
       V_TI[i] := i;
       V_R[i] := TIME_TO_REAL(V_TR[i]);
    END_FOR;
    X := V_TI[3];
    V := V_TR[3];
    W := V_R[3];
_GEB_ASSERT_(V = T#003ms);
_GEB_ASSERT_EQFLOAT_(W , 3.0);
END_PROGRAM