path: root/testsuite/tests/numeric/should_run/4381.hs

module Main where

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