1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/stranal/should_run/strun003.hs b/testsuite/tests/stranal/should_run/strun003.hs
new file mode 100644
index 0000000000..eaedd59e8c
--- /dev/null
+++ b/testsuite/tests/stranal/should_run/strun003.hs
@@ -0,0 +1,23 @@
+-- This module should run fine with an empty argument list
+-- But it won't if the strictness analyser thinks that 'len' is use 
+-- strictly, which was the case in GHC 6.0
+
+-- See the io_hack_reqd in DmdAnal.lhs
+
+module Main where
+
+import System.Environment
+import System.Exit
+
+main    = do
+            args <- getArgs
+            let len = read (head args) :: Int
+
+            (if null args && useLazily len
+	        then putStrLn "ok" >> exitWith ExitSuccess 
+		else return () ) 
+
+            print len
+
+useLazily :: Int -> Bool
+useLazily len = ([len,3,4] !! 1) == 3