[hcoop/debian/mlton.git] / regression / common-subexp0.sml

val x = !(ref 0.0) / !(ref 0.0)
val _ = print (concat [Real.toString x, "\n"])
Commit	Line	Data
7f918cf1 CE	1	val x = !(ref 0.0) / !(ref 0.0)
7f918cf1 CE	2	val _ = print (concat [Real.toString x, "\n"])