ghc/tests/rename/should_fail/rnfail023.hs

   1 -- !!! Check that type signatures and pragmas that
   2 -- !!! don't have a "parent" are correctly reported
   3
   4 module ShouldFail where
   5
   6 -- Top level test
   7 f :: Int -> Int
   8 {-# INLINE f #-}
   9
  10 -- Nested test
  11 h :: Int -> Int -- This one is ok
  12 h x = x
  13     where
  14       g :: Int -> Int   -- Bogus
  15