ocaml/testsuite/tests/lib-dynlink-native/c.ml

17 lines
902 B
OCaml
Executable File

(***********************************************************************)
(* *)
(* OCaml *)
(* *)
(* Alain Frisch, LexiFi *)
(* *)
(* Copyright 2007 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the Q Public License version 1.0. *)
(* *)
(***********************************************************************)
let () =
print_endline "C is running";
incr A.x;
Printf.printf "A.x = %i\n" !A.x