Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / llvm / should_compile / T5681.hs
1 {-# LANGUAGE MagicHash, UnboxedTuples #-}
2 -- Test case for #5681
3 module Main where
4
5 import GHC.Prim
6
7 work :: Int -> Int
8 work n = work (n-1)
9
10 main :: IO ()
11 main = case spark# (work 2) realWorld# of
12 (# _, _ #) -> case par# (work 1) of
13 _ -> return ()
14