mirror of
https://github.com/AdaCore/why3.git
synced 2026-02-12 12:34:55 -08:00
13 lines
133 B
Plaintext
13 lines
133 B
Plaintext
module M
|
|
|
|
use ref.Ref
|
|
|
|
let foo (x : ref int) (y : ref int) =
|
|
x := 1;
|
|
y := 2
|
|
|
|
let test (x : ref int) =
|
|
foo x x
|
|
|
|
end
|