summaryrefslogtreecommitdiff
path: root/testsuite/tests/numeric/should_compile/T7881.hs
blob: 73d8452cc77cfc5349262c0835cc4060b2ab30e0 (plain)
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
26
27
28
29
30
31
32
33
34

module T7881 where

import Data.Int

x1 :: [Int8]
x1 = [5 .. 3]

x2 :: [Int8]
x2 = [3 .. 5]

x3 :: [Int8]
x3 = [5, 3 .. 1]

x4 :: [Int8]
x4 = [5, (3+0) .. 1]

x5 :: [Int8]
x5 = [1, 3 .. 5]

x6 :: [Int8]
x6 = [1, (3+0) .. 5]

x7 :: [Int8]
x7 = [5, 7 .. 1]

x8 :: [Int8]
x8 = [5, (7+0) .. 1]

x9 :: [Int8]
x9 = [3, 1 .. 5]

x10 :: [Int8]
x10 = [3, (1+0) .. 5]