[COMMITTED] a68: new test trimmer-12.a68

[Jose E. Marchesi]

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 <jemarch@gnu.org>

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