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

18 lines
905 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 x = ref 0
let u = Random.int 1000
let () =
Printf.printf "A is running (%i)\n%!" u