Backport from sid to buster
[hcoop/debian/mlton.git] / regression / common-subexp0.sml
1 val x = !(ref 0.0) / !(ref 0.0)
2 val _ = print (concat [Real.toString x, "\n"])