Testsuite: fixup comments for T9872d [skip ci]
[ghc.git] / testsuite / tests / perf / compiler / T9675.hs
1 module T6975 where
2 data Foo = Foo
3 { field1 :: Int -> Int
4 , field2 :: Int -> Int
5 , field3 :: Int -> Int
6 , field4 :: Int -> Int
7 , field5 :: Int -> Int
8 , field6 :: Int -> Int
9 , field7 :: Int -> Int
10 , field8 :: Int -> Int
11 , field9 :: Int -> Int
12 , field10 :: Int -> Int
13 , field11 :: Int -> Int
14 , field12 :: Int -> Int
15 , field13 :: Int -> Int
16 , field14 :: Int -> Int
17 , field15 :: Int -> Int
18 , field16 :: Int -> Int
19 , field17 :: Int -> Int
20 , field18 :: Int -> Int
21 , field19 :: Int -> Int
22 , field20 :: Int -> Int
23 , field21 :: Int -> Int
24 , field22 :: Int -> Int
25 , field23 :: Int -> Int
26 , field24 :: Int -> Int
27 , field25 :: Int -> Int
28 , field26 :: Int -> Int
29 , field27 :: Int -> Int
30 , field28 :: Int -> Int
31 , field29 :: Int -> Int
32 , field30 :: Int -> Int
33 , field31 :: Int -> Int
34 , field32 :: Int -> Int
35 , field33 :: Int -> Int
36 , field34 :: Int -> Int
37 , field35 :: Int -> Int
38 , field36 :: Int -> Int
39 , field37 :: Int -> Int
40 , field38 :: Int -> Int
41 , field39 :: Int -> Int
42 , field40 :: Int -> Int
43 , field41 :: Int -> Int
44 , field42 :: Int -> Int
45 , field43 :: Int -> Int
46 , field44 :: Int -> Int
47 , field45 :: Int -> Int
48 , field46 :: Int -> Int
49 , field47 :: Int -> Int
50 , field48 :: Int -> Int
51 , field49 :: Int -> Int
52 , field50 :: Int -> Int
53 , field51 :: Int -> Int
54 , field52 :: Int -> Int
55 , field53 :: Int -> Int
56 , field54 :: Int -> Int
57 , field55 :: Int -> Int
58 , field56 :: Int -> Int
59 , field57 :: Int -> Int
60 , field58 :: Int -> Int
61 , field59 :: Int -> Int
62 , field60 :: Int -> Int
63 , field61 :: Int -> Int
64 , field62 :: Int -> Int
65 , field63 :: Int -> Int
66 , field64 :: Int -> Int
67 , field65 :: Int -> Int
68 , field66 :: Int -> Int
69 , field67 :: Int -> Int
70 , field68 :: Int -> Int
71 , field69 :: Int -> Int
72 , field70 :: Int -> Int
73 , field71 :: Int -> Int
74 , field72 :: Int -> Int
75 , field73 :: Int -> Int
76 , field74 :: Int -> Int
77 , field75 :: Int -> Int
78 , field76 :: Int -> Int
79 , field77 :: Int -> Int
80 , field78 :: Int -> Int
81 , field79 :: Int -> Int
82 , field80 :: Int -> Int
83 , field81 :: Int -> Int
84 , field82 :: Int -> Int
85 , field83 :: Int -> Int
86 , field84 :: Int -> Int
87 , field85 :: Int -> Int
88 , field86 :: Int -> Int
89 , field87 :: Int -> Int
90 , field88 :: Int -> Int
91 , field89 :: Int -> Int
92 , field90 :: Int -> Int
93 , field91 :: Int -> Int
94 , field92 :: Int -> Int
95 , field93 :: Int -> Int
96 , field94 :: Int -> Int
97 , field95 :: Int -> Int
98 , field96 :: Int -> Int
99 , field97 :: Int -> Int
100 , field98 :: Int -> Int
101 , field99 :: Int -> Int
102 , field100 :: Int -> Int
103 }