[commit: ghc] master: testsuite: commit missing T4945 stdout (7d519da)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/7d519dabd2006c9742e82fce02df55704da15482/ghc

>---------------------------------------------------------------

commit 7d519dabd2006c9742e82fce02df55704da15482
Author: Austin Seipp <austin at well-typed.com>
Date:   Sat May 23 07:24:50 2015 -0500

    testsuite: commit missing T4945 stdout
    
    Simon apparently forgot this it seems.
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


>---------------------------------------------------------------

7d519dabd2006c9742e82fce02df55704da15482
 testsuite/tests/simplCore/should_compile/T4945.stdout | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/testsuite/tests/simplCore/should_compile/T4945.stdout b/testsuite/tests/simplCore/should_compile/T4945.stdout
new file mode 100644
index 0000000..4e53cfd
--- /dev/null
+++ b/testsuite/tests/simplCore/should_compile/T4945.stdout
@@ -0,0 +1,9 @@
+                               -> STUArray RealWorld Int Int -> (# State# RealWorld, () #)
+                              (ipv3 [OS=OneShot] :: STUArray RealWorld Int Int) ->
+                                          case ipv3 of _ [Occ=Dead] { STUArray ds5 ds6 dt ds7 ->
+                                  (Data.Array.Base.STUArray
+                                          (Data.Array.Base.STUArray
+                                          (Data.Array.Base.STUArray
+                                  (Data.Array.Base.STUArray
+                                          (Data.Array.Base.STUArray
+                                          (Data.Array.Base.STUArray