testsuite/tests/ghc-regress/rename/should_fail/rnfail048.hs


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

-- Trac #1888 
-- Pretty printing for pragmas

module ShouldFail where

{-# NOINLINE[1] foo #-}
{-# NOINLINE[~2] foo #-}
{-# NOINLINE foo #-}
{-# INLINE[1] foo #-}
{-# INLINE[~2] foo #-}
{-# INLINE foo #-}

foo n = foo (n+1)