M2compiler-V3/compiler/tests/t_extern_alias.mod

MODULE TExternAlias;
(* Implementation-side EXTERNAL alias with a long C symbol. *)

PROCEDURE long_sum (a, b : INTEGER) : INTEGER;
  EXTERNAL "m2_this_is_a_very_long_c_symbol_name_for_link_alias_test_0123456789";

VAR ExitCode : INTEGER;

BEGIN
  IF long_sum(20, 22) = 42 THEN
    ExitCode := 42
  ELSE
    ExitCode := 1
  END
END TExternAlias.