[COMMITTED] a68: fix expected values in program-27.a68

[Jose E. Marchesi]

Signed-off-by: Jose E. Marchesi <jema...@gnu.org>

gcc/testsuite/ChangeLog

        * algol68/execute/modules/program-27.a68: Fix expected values.p
---
 gcc/testsuite/algol68/execute/modules/program-27.a68 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/algol68/execute/modules/program-27.a68 
b/gcc/testsuite/algol68/execute/modules/program-27.a68
index 59d0431e6e6..3b49d697886 100644
--- a/gcc/testsuite/algol68/execute/modules/program-27.a68
+++ b/gcc/testsuite/algol68/execute/modules/program-27.a68
@@ -3,7 +3,7 @@
 access Module27
 begin assert (wb = word 16rabcd);
       assert (wi = word 666);
-      assert (IM wc = word 1.0 AND RE wc = word 2.0);
-      assert (IM wc2 = word 10.0 AND RE wc2 = word 0.0);
+      assert (RE wc = word 1.0 AND IM wc = word 2.0);
+      assert (RE wc2 = word 10.0 AND IM wc2 = word 0.0);
       skip
 end
-- 
2.39.5