69fbb4d2dd93b65535053df4395ef05f4a967352
[ghc.git] / testsuite / tests / ghci.debugger / scripts / print007.script
1 -- Handling of unboxed fields
2 -- There seems to be a problem with -funbox-strict-fields
3 -- and interpreted code.
4 -- dataConRepArgTys says they are unboxed,
5 -- but they seem to be not.
6 -- So this test fails with wrong output
7 :set -XExistentialQuantification -XDeriveDataTypeable -XGeneralizedNewtypeDeriving
8 :l ../Test
9
10 let s = S2 'a' 'b'
11 seq s ()
12 :p s
13
14 :set -funbox-strict-fields 
15 :l
16 :l ../Test
17
18 let s = S2 'a' 'b'
19 seq s ()
20 :p s
21
22
23 :set -funbox-strict-fields -O
24 :l
25 :l ../Test
26
27 let s = S2 'a' 'b'
28 seq s ()
29 :p s
30