const-math-ghc-plugin-0.3.0.1: tests/ghc-7.4/4381.hs

module Main where

main = do
  print (scaleFloat 30000 1)
  print (scaleFloat (maxBound :: Int) 1)