[commit: testsuite] master: Make T7037 work on both Windows and other platforms (6870a48)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6870a4896bfac33e93f300c44841e28403c653ed

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

commit 6870a4896bfac33e93f300c44841e28403c653ed
Author: Ian Lynagh <ian at well-typed.com>
Date:   Fri Jan 25 23:35:28 2013 +0000

    Make T7037 work on both Windows and other platforms

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

 tests/rts/T7037_main.c |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/tests/rts/T7037_main.c b/tests/rts/T7037_main.c
index cca6681..c195834 100644
--- a/tests/rts/T7037_main.c
+++ b/tests/rts/T7037_main.c
@@ -2,6 +2,9 @@
 #include <unistd.h>
 
 int main(int argc, char *argv[]) {
-    const char *args[2] = {"T7037", NULL};
+#ifdef __MINGW32__
+    const
+#endif
+    char * args[2] = {"T7037", NULL};
     execv("./T7037", args);
 }