Ticket #4992: trash_testcase.hs

File trash_testcase.hs, 3.5 KB (added by scpmw, 9 years ago)

Unfinished test program

Line 
1
2{-# LANGUAGE MagicHash, BangPatterns #-}
3
4module Main where
5
6import GHC.Prim
7import GHC.Types
8
9{-# NOINLINE r #-}
10r :: Double# -> Int#
11r y = let !x = double2Int# (tanDouble#  y)
12          !a0 = x +# 97#; !b0 = x +# 98#; !c0 = x +# 99#; !d0 = x +# 100#; !e0 = x +# 101#; !f0 = x +# 102#; !g0 = x +# 103#; !h0 = x +# 104#; !i0 = x +# 105#; !j0 = x +# 106#; !k0 = x +# 107#; !l0 = x +# 108#; !m0 = x +# 109#; !n0 = x +# 110#; !o0 = x +# 111#; !p0 = x +# 112#; !q0 = x +# 113#; !r0 = x +# 114#; !s0 = x +# 115#; 
13          !b1 = a0 +# b0; !c1 = b0 +# c0; !d1 = c0 +# d0; !e1 = d0 +# e0; !f1 = e0 +# f0; !g1 = f0 +# g0; !h1 = g0 +# h0; !i1 = h0 +# i0; !j1 = i0 +# j0; !k1 = j0 +# k0; !l1 = k0 +# l0; !m1 = l0 +# m0; !n1 = m0 +# n0; !o1 = n0 +# o0; !p1 = o0 +# p0; !q1 = p0 +# q0; !r1 = q0 +# r0; !s1 = r0 +# s0; 
14          !c2 = b1 +# c1; !d2 = c1 +# d1; !e2 = d1 +# e1; !f2 = e1 +# f1; !g2 = f1 +# g1; !h2 = g1 +# h1; !i2 = h1 +# i1; !j2 = i1 +# j1; !k2 = j1 +# k1; !l2 = k1 +# l1; !m2 = l1 +# m1; !n2 = m1 +# n1; !o2 = n1 +# o1; !p2 = o1 +# p1; !q2 = p1 +# q1; !r2 = q1 +# r1; !s2 = r1 +# s1; 
15          !d3 = c2 +# d2; !e3 = d2 +# e2; !f3 = e2 +# f2; !g3 = f2 +# g2; !h3 = g2 +# h2; !i3 = h2 +# i2; !j3 = i2 +# j2; !k3 = j2 +# k2; !l3 = k2 +# l2; !m3 = l2 +# m2; !n3 = m2 +# n2; !o3 = n2 +# o2; !p3 = o2 +# p2; !q3 = p2 +# q2; !r3 = q2 +# r2; !s3 = r2 +# s2; 
16          !e4 = d3 +# e3; !f4 = e3 +# f3; !g4 = f3 +# g3; !h4 = g3 +# h3; !i4 = h3 +# i3; !j4 = i3 +# j3; !k4 = j3 +# k3; !l4 = k3 +# l3; !m4 = l3 +# m3; !n4 = m3 +# n3; !o4 = n3 +# o3; !p4 = o3 +# p3; !q4 = p3 +# q3; !r4 = q3 +# r3; !s4 = r3 +# s3; 
17          !f5 = e4 +# f4; !g5 = f4 +# g4; !h5 = g4 +# h4; !i5 = h4 +# i4; !j5 = i4 +# j4; !k5 = j4 +# k4; !l5 = k4 +# l4; !m5 = l4 +# m4; !n5 = m4 +# n4; !o5 = n4 +# o4; !p5 = o4 +# p4; !q5 = p4 +# q4; !r5 = q4 +# r4; !s5 = r4 +# s4; 
18          !g6 = f5 +# g5; !h6 = g5 +# h5; !i6 = h5 +# i5; !j6 = i5 +# j5; !k6 = j5 +# k5; !l6 = k5 +# l5; !m6 = l5 +# m5; !n6 = m5 +# n5; !o6 = n5 +# o5; !p6 = o5 +# p5; !q6 = p5 +# q5; !r6 = q5 +# r5; !s6 = r5 +# s5; 
19          !h7 = g6 +# h6; !i7 = h6 +# i6; !j7 = i6 +# j6; !k7 = j6 +# k6; !l7 = k6 +# l6; !m7 = l6 +# m6; !n7 = m6 +# n6; !o7 = n6 +# o6; !p7 = o6 +# p6; !q7 = p6 +# q6; !r7 = q6 +# r6; !s7 = r6 +# s6; 
20          !i8 = h7 +# i7; !j8 = i7 +# j7; !k8 = j7 +# k7; !l8 = k7 +# l7; !m8 = l7 +# m7; !n8 = m7 +# n7; !o8 = n7 +# o7; !p8 = o7 +# p7; !q8 = p7 +# q7; !r8 = q7 +# r7; !s8 = r7 +# s7; 
21          !j9 = i8 +# j8; !k9 = j8 +# k8; !l9 = k8 +# l8; !m9 = l8 +# m8; !n9 = m8 +# n8; !o9 = n8 +# o8; !p9 = o8 +# p8; !q9 = p8 +# q8; !r9 = q8 +# r8; !s9 = r8 +# s8; 
22          !k10 = j9 +# k9; !l10 = k9 +# l9; !m10 = l9 +# m9; !n10 = m9 +# n9; !o10 = n9 +# o9; !p10 = o9 +# p9; !q10 = p9 +# q9; !r10 = q9 +# r9; !s10 = r9 +# s9; 
23          !l11 = k10 +# l10; !m11 = l10 +# m10; !n11 = m10 +# n10; !o11 = n10 +# o10; !p11 = o10 +# p10; !q11 = p10 +# q10; !r11 = q10 +# r10; !s11 = r10 +# s10; 
24          !m12 = l11 +# m11; !n12 = m11 +# n11; !o12 = n11 +# o11; !p12 = o11 +# p11; !q12 = p11 +# q11; !r12 = q11 +# r11; !s12 = r11 +# s11; 
25          !n13 = m12 +# n12; !o13 = n12 +# o12; !p13 = o12 +# p12; !q13 = p12 +# q12; !r13 = q12 +# r12; !s13 = r12 +# s12; 
26          !o14 = n13 +# o13; !p14 = o13 +# p13; !q14 = p13 +# q13; !r14 = q13 +# r13; !s14 = r13 +# s13; 
27          !p15 = o14 +# p14; !q15 = p14 +# q14; !r15 = q14 +# r14; !s15 = r14 +# s14; 
28          !q16 = p15 +# q15; !r16 = q15 +# r15; !s16 = r15 +# s15; 
29          !r17 = q16 +# r16; !s17 = r16 +# s16; 
30          !s18 = r17 +# s17; 
31       in s18
32
33main = print (I# (r 20.0##))