const-math-ghc-plugin-0.2.0.0: tests/arith015.hs

main = do
  print (map read strange_nums :: [Float]) 
  print (map read strange_nums :: [Double]) 
  where
   strange_nums = ["Infinity","NaN", "-Infinity"]