RANGE types

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

Test case ID: R0060
Language: ST

Code:

tests2/t0060.st
TYPE 
    TR1 : UINT (600 .. 1000);
    TR2 : INT (-1000 .. 1200) := 20;
    TR3 : INT := 20;
    COLORX : (RED,GREEN,BLUE) := GREEN;
END_TYPE 

PROGRAM XX_R0060

VAR
   R1A : TR1;
   R1B : TR1 := UINT#611;
   R2A : TR2;
   R2B : TR2 := 2; 
   R2C : TR2 := -50; 
   R4C : INT (2 .. 3); 
   R5C : INT(5..10);
   E1 : COLORX ;
   E2 : COLORX := COLORX#RED;
   I : INT;  
END_VAR
  I :=2 ;
  R2C := R2C + 200;
  R4C := R4C + 1;
  R1B := UINT#612;
  I :=3 ; 

_GEB_ASSERT_(R2A = 20);
_GEB_ASSERT_(R2C = 150);
_GEB_ASSERT_(R4C = 3);

END_PROGRAM