testsuite/tests/simplCore/should_compile/T13338.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE MagicHash #-}

module T13338 where

import GHC.Exts

magic# :: Int# -> Bool
magic# x# = True
{-# NOINLINE magic# #-}

f :: Int# -> Int -> Int
f x# n = length [ i | i@(I# i#) <- [0..n], magic# (remInt# x# 100000# -# i#) ]