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. --- gcc/testsuite/algol68/execute/trimmer-12.a68 | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 gcc/testsuite/algol68/execute/trimmer-12.a68 diff --git a/gcc/testsuite/algol68/execute/trimmer-12.a68 b/gcc/testsuite/algol68/execute/trimmer-12.a68 new file mode 100644 index 00000000000..309084286e0 --- /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 -- 2.39.5
