M2compiler-V3/compiler/tests/linkname_prog.mod

MODULE LinkNameProg;
(* The FOR "C" definition maps long_sum to a C symbol longer than the
   old 64-character V3 name limit.  Expected exit code: 42. *)

FROM LinkNameTest IMPORT long_sum;

VAR ExitCode : INTEGER;

BEGIN
  IF long_sum(19, 23) = 42 THEN
    ExitCode := 42
  ELSE
    ExitCode := 1
  END
END LinkNameProg.