Commit 27e2c656 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5084

parent 81525f94
module T5084 where
-- Superclass method pragma test (fail)
class Foo a where
bar :: a -> a
{-# INLINE bar #-}
-- Instance test (ok)
instance Foo Int where
bar = (+1)
{-# INLINE bar #-}
T5084.hs:6:5:
The INLINE pragma for default method `bar' lacks an accompanying binding
......@@ -227,3 +227,4 @@ test('T2846b', normal, compile_fail, [''])
test('FrozenErrorTests', normal, compile_fail, [''])
test('SCLoop', normal, compile_fail, [''])
test('T4875', normal, compile_fail, [''])
test('T5084', normal, compile_fail, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment