https://gcc.gnu.org/g:9f6f255b68b08218234d6c59aeee8a66943c99c7
commit r17-5556-g9f6f255b68b08218234d6c59aeee8a66943c99c7 Author: Jose E. Marchesi <[email protected]> Date: Sun Oct 25 22:58:56 2026 +0100 a68: fix expected values in program-27.a68 Signed-off-by: Jose E. Marchesi <[email protected]> gcc/testsuite/ChangeLog * algol68/execute/modules/program-27.a68: Fix expected values.p Diff: --- 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 59d0431e6e65..3b49d6978867 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
