Add test case for #7117
[ghc.git] / testsuite / tests / ghci / scripts / ghci037.script
1 x <- Control.Concurrent.myThreadId
2 y <- Control.Concurrent.myThreadId
3 print (x == y)