https://gcc.gnu.org/g:6c79b005eb1d14b237be5249eb68a624c6c18a75
commit r17-1539-g6c79b005eb1d14b237be5249eb68a624c6c18a75 Author: Jose E. Marchesi <[email protected]> Date: Sun Jun 14 01:39:57 2026 +0200 a68: fix testsuite/algol68/execute/modules/program-1.a68 Signed-off-by: Jose E. Marchesi <[email protected]> gcc/testsuite/ChangeLog * algol68/execute/modules/program-1.a68: Fix test. Diff: --- gcc/testsuite/algol68/execute/modules/program-1.a68 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/gcc/testsuite/algol68/execute/modules/program-1.a68 b/gcc/testsuite/algol68/execute/modules/program-1.a68 index ccff2a0f5988..803f3bc16fb0 100644 --- a/gcc/testsuite/algol68/execute/modules/program-1.a68 +++ b/gcc/testsuite/algol68/execute/modules/program-1.a68 @@ -15,9 +15,7 @@ begin string je = access Module1 begin who end; assert (aa = "jemarch"); assert (bb = "jemarch"); assert (cc = "jemarch"); - SomeStruct u,v; - SomeStruct z = u%v; - assert (a'z = 10 AND b'z = 20); + access Module1 (SomeStruct u,v; SomeStruct z = u%v; assert (a'z = 10 AND b'z = 20)); access Module1 to 1 do assert (who = "jemarch" AND whoelse = "pietro") od; access Module1 (assert (beast_number = 666 AND angelic_number = 777)); access Module1 (MyInt a = 1; MyOtherInt b = 1; assert (a + b = 2))
