regression/time4.sml

   1
   2 val t = valOf (Time.fromString "0.417")
   3 val () = print (concat [Time.toString t, "\n"])
   4
   5 val t = valOf (Time.fromString "0.999")
   6 val () = print (concat [Time.toString t, "\n"])
   7
   8 val t = valOf (Time.fromString ".417")
   9 val () = print (concat [Time.toString t, "\n"])
  10
  11 val t = valOf (Time.fromString ".999")
  12 val () = print (concat [Time.toString t, "\n"])
  13
  14 val t = valOf (Time.fromString "~0.417")
  15 val () = print (concat [Time.toString t, "\n"])
  16
  17 val t = valOf (Time.fromString "~0.999")
  18 val () = print (concat [Time.toString t, "\n"])
  19
  20 val t = valOf (Time.fromString "~.417")
  21 val () = print (concat [Time.toString t, "\n"])
  22
  23 val t = valOf (Time.fromString "~.999")
  24 val () = print (concat [Time.toString t, "\n"])