[project @ 1999-01-23 18:10:00 by sof]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg026.hs

diff --git a/ghc/tests/codeGen/should_run/cg026.hs b/ghc/tests/codeGen/should_run/cg026.hs
index d6b4eaf..69bd85b 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg026.hs
+++ b/ghc/tests/codeGen/should_run/cg026.hs
@@ -1,4 +1,4 @@
---!!! simple tests of primitive arrays
+-- !!! simple tests of primitive arrays
 --
 module Main ( main ) where
 
@@ -29,7 +29,8 @@ test_chars
   = let str = reverse "Now is the time for all good men to come to...\n"
     in
     unsafePerformIO (
-       _ccall_ fprintf (``stdout''::Addr) "%d %s\n" 93 str >>
+       _ccall_ fprintf (``stdout''::Addr) "%d %s\n" (93::Int) str >>
+       _ccall_ fflush  (``stdout''::Addr)  >>
        return ""
        )