M2compiler-V3/compiler/tests/t_under.mod

MODULE T_Under;
(* ISO identifiers may contain underscores; the scanner must accept them
   in module names and ordinary identifiers (previously `my_var` lexed as
   `my` then `_var`).  Exit 42. *)
VAR
  my_var, ExitCode : INTEGER;

PROCEDURE add_two (x : INTEGER) : INTEGER;
BEGIN
  RETURN x + 2
END add_two;

BEGIN
  my_var := add_two(40);
  ExitCode := my_var
END T_Under.