Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
70f39d1e
Commit
70f39d1e
authored
Nov 14, 2007
by
simonpj
Browse files
Test for Trac #1888
parent
4e568f81
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/rename/should_fail/all.T
View file @
70f39d1e
...
...
@@ -49,3 +49,4 @@ test('rnfail044', normal, compile_fail, [''])
test
('
rnfail045
',
normal
,
compile_fail
,
[''])
test
('
rnfail046
',
normal
,
compile_fail
,
[''])
test
('
rnfail047
',
normal
,
multimod_compile_fail
,
['
rnfail047
',
'
-v0
'])
test
('
rnfail048
',
normal
,
compile_fail
,
[''])
testsuite/tests/ghc-regress/rename/should_fail/rnfail048.hs
0 → 100644
View file @
70f39d1e
-- 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
)
testsuite/tests/ghc-regress/rename/should_fail/rnfail048.stderr
0 → 100644
View file @
70f39d1e
rnfail048.hs:11:0:
Duplicate INLINE pragma:
rnfail048.hs:11:0-17: {-# INLINE foo #-}
rnfail048.hs:10:0-21: {-# INLINE[~2] foo #-}
rnfail048.hs:9:0-20: {-# INLINE[1] foo #-}
rnfail048.hs:8:0-19: {-# NOINLINE foo #-}
rnfail048.hs:7:0-23: {-# NOINLINE[~2] foo #-}
rnfail048.hs:6:0-22: {-# NOINLINE[1] foo #-}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment