testsuite/tests/parser/should_fail/readFail048.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

-- Test for trac #314

{-|
/*
  This
  uses
  up
  some
  lines
  The
  following
  pragmas
  should
  not
  be
  parsed
 */
# 23
#pragma

-}

module ShouldFail where

type_error = "Type error on line 25":"Type error on line 25"