M2compiler-V3/compiler/tests/t_builtinname.mod

MODULE TBuiltinName;
// ORDL is not a reserved word in Modula-2 (it is a gm2/FileIO helper),
// so a user procedure may be named ORDL.  Exit 42.
VAR ExitCode : INTEGER;

PROCEDURE ORDL(n : INTEGER) : CARDINAL;
BEGIN
  RETURN VAL(CARDINAL, n + 1)
END ORDL;

BEGIN
  IF ORDL(41) = 42 THEN ExitCode := 42 ELSE ExitCode := 1 END
END TBuiltinName.