Add some tests for unboxing strict record fields.
SRC_HC_OPTS += -dcore-lint
ds035_HC_OPTS = -fglasgow-exts
SRC_HC_OPTS += -dcore-lint
ds035_HC_OPTS = -fglasgow-exts
-ds044_HC_OPTS = -O -funbox-strict-fields
+ds046_HC_OPTS = -O -funbox-strict-fields
ds049_HC_OPTS = -fvia-C
ds050_HC_OPTS = -fglasgow-exts
ds049_HC_OPTS = -fvia-C
ds050_HC_OPTS = -fglasgow-exts
data D a b = D Int !(a,b) !(E Int)
data E a = E a
k (D a (b,c) (E d)) = a + b + c + d
data D a b = D Int !(a,b) !(E Int)
data E a = E a
k (D a (b,c) (E d)) = a + b + c + d
+
+-- test 6: records
+data F a b = F { x :: !Int, y :: !(Float,Float), z :: !(a,b) }
+l F{x = a} = a
+m (F a b c) = a
+n F{z = (a,b)} = a