M2compiler-V3/compiler/tests/t_proc.mod

MODULE TProc;
VAR ExitCode : INTEGER;
PROCEDURE Add(a, b : INTEGER; VAR sum : INTEGER) : INTEGER;
BEGIN
  sum := a + b;
  ExitCode := sum
END Add;
BEGIN
  ExitCode := 0
END TProc.