https://gcc.gnu.org/g:6e35a5d5b2974e200147c51735a3c83a86f223c6
commit r16-7631-g6e35a5d5b2974e200147c51735a3c83a86f223c6 Author: Jose E. Marchesi <[email protected]> Date: Sun Feb 22 22:22:42 2026 +0100 a68: new test trimmer-12.a68 This new test makes sure that the bounds are adjusted while trimming dimensions of multiples with implicit lower and implicit upper bounds. Signed-off-by: Jose E. Marchesi <[email protected]> gcc/testsuite/ChangeLog * algol68/execute/trimmer-12.a68: New test. Diff: --- gcc/testsuite/algol68/execute/trimmer-12.a68 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/gcc/testsuite/algol68/execute/trimmer-12.a68 b/gcc/testsuite/algol68/execute/trimmer-12.a68 new file mode 100644 index 000000000000..309084286e0f --- /dev/null +++ b/gcc/testsuite/algol68/execute/trimmer-12.a68 @@ -0,0 +1,7 @@ +begin [0:9,0:9]int foo; + ref[]int bar = foo[2,@0]; + assert(UPB foo[2,@0] = 9); + assert(LWB foo[2,@0] = 0); + assert(UPB bar = 9); + assert(LWB bar = 0) +end
