diff --git a/testsuite/tests/codeGen/should_run/StaticArraySize.hs b/testsuite/tests/codeGen/should_run/StaticArraySize.hs
index 1052e2d4ad29140fffbcd76f6a94f2302af23ffb..06c8343bc29c524566e5a3c55aa2f4e5b4e1199a 100644
--- a/testsuite/tests/codeGen/should_run/StaticArraySize.hs
+++ b/testsuite/tests/codeGen/should_run/StaticArraySize.hs
@@ -10,6 +10,7 @@
 -- code.
 module Main where
 
+import Control.Monad
 import GHC.Exts
 import GHC.IO
 import Prelude hiding (read)
@@ -47,7 +48,9 @@ main = do
         let marrs = [marr0, marr1, marr2, marr3, marr4, marr5, marr6, marr7,
                      marr8, marr9, marr10, marr11, marr12, marr13, marr14,
                      marr15, marr16, marr17]
-        print `fmap` sumManyArrays marrs
+        total <- sumManyArrays marrs
+        unless (total == 153) $
+            putStrLn "incorrect sum"
         loop (i-1)
 
 sumManyArrays :: [MArray] -> IO Int