Add regression test for old parser issue #504
[ghc.git] / testsuite / tests / parser / should_compile / T504.hs
1 {-# OPTIONS_GHC -Wno-inline-rule-shadowing #-}
2 module Bug where
3
4 -- regression test for #504:
5 -- the pragma start and end sequences can both start in column 1
6 -- without parse error
7
8 {-# RULES
9 "foo" foo 1 = 1
10 #-}
11 foo 1 = 1