CocoR/Test2/tests/q_if.mod

MODULE QIf;
VAR x : INTEGER; ExitCode : INTEGER;
BEGIN
  x := 2;
  IF x = 1 THEN ExitCode := 10
  ELSIF x = 2 THEN ExitCode := 20
  ELSE ExitCode := 30 END;
  IF x # 2 THEN ExitCode := 99 END
END QIf.