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

module Main where

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