Skip to content

Instantly share code, notes, and snippets.

@ChrSteinert
Last active September 23, 2017 17:01
Show Gist options
  • Save ChrSteinert/62ffabe5c9a39a9be15e5613a1b3e099 to your computer and use it in GitHub Desktop.
Save ChrSteinert/62ffabe5c9a39a9be15e5613a1b3e099 to your computer and use it in GitHub Desktop.
let a0 = 3
let b0 = 5
let c0 = a0 * b0
let d0 = 3L
let e0 = 5L
let f0 = d0 * e0
if a0 |> int64 <> d0 then failwith "Int64 constants are not emitted properly"
if b0 |> int64 <> e0 then failwith "Int64 constants are not emitted properly"
if c0 |> int64 <> f0 then failwith "Int64 constants are not emitted properly"
let a1 = 1997
let b1 = 5711
let c1 = a1 * b1
let d1 = 1997L
let e1 = 5711L
let f1 = d1 * e1
if a1 |> int64 <> d1 then failwith "Int64 constants are not emitted properly"
if b1 |> int64 <> e1 then failwith "Int64 constants are not emitted properly"
if c1 |> int64 <> f1 then failwith "Int64 constants are not emitted properly"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment