M2compiler-V3/compiler/tests/t_types.mod

MODULE TTypes;
// Scalar TYPEs: subrange (decimal + hex bounds), alias, use.
TYPE R = [0..9];
TYPE Alias = INTEGER;
TYPE Hex = [0x0..0xF];
VAR x : R;
VAR y : Alias;
VAR h : Hex;
VAR ExitCode : INTEGER;
BEGIN
  x := 7;
  y := x + 1;
  h := 0xA;
  ExitCode := y + h - h
END TTypes.