M2compiler-V3/compiler/tests/t_if.mod

MODULE TIf;
VAR ExitCode : INTEGER;
BEGIN
  ExitCode := 0;
  IF 1 > 2 THEN ExitCode := 1
  ELSIF 2 > 1 THEN ExitCode := 20
  ELSE ExitCode := 30
  END;
  IF ExitCode = 20 THEN ExitCode := ExitCode + 5 END
END TIf.