const-math-ghc-plugin-0.3.0.1: tests/ghc-7.6/arith015.hs

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