[commit: ghc] master: testsuite: fix cc004 (3ed867f)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3ed867ff56cc3849b9bb20f939722de5a2f93809/ghc

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

commit 3ed867ff56cc3849b9bb20f939722de5a2f93809
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri May 9 21:50:52 2014 -0500

    testsuite: fix cc004
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

3ed867ff56cc3849b9bb20f939722de5a2f93809
 testsuite/tests/ffi/should_compile/all.T | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/ffi/should_compile/all.T b/testsuite/tests/ffi/should_compile/all.T
index 81f6a0d..84c7e86 100644
--- a/testsuite/tests/ffi/should_compile/all.T
+++ b/testsuite/tests/ffi/should_compile/all.T
@@ -9,9 +9,9 @@ test('cc001', normal, compile, [''])
 # Non-static C call
 # cc004 test also uses stdcall, so it only works on i386.
 if config.platform.startswith('i386-'):
-    ways = expect_fail
-else:
     ways = normal
+else:
+    ways = expect_fail
 test('cc004', ways, compile, [''])
 
 test('cc005', normal, compile, [''])