M2compiler-V3/compiler/tests/c_foreign.mod

IMPLEMENTATION MODULE FOR "C" CForeign;
(* ISO foreign IMPLEMENTATION module: FOR "C" on the implementation too. *)
PROCEDURE Add(a, b : CARDINAL) : CARDINAL;
BEGIN
  RETURN a + b
END Add;
END CForeign.