[COMMITTED] algol68: new test trimmer-10.a68

[Jose E. Marchesi]

---
 gcc/testsuite/algol68/execute/trimmer-10.a68 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 gcc/testsuite/algol68/execute/trimmer-10.a68

diff --git a/gcc/testsuite/algol68/execute/trimmer-10.a68 b/gcc/testsuite/algol68/execute/trimmer-10.a68
new file mode 100644
index 00000000000..37e97dddbdf
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/trimmer-10.a68
@@ -0,0 +1,15 @@
+# Trimming with flat descriptors should lead to flat multiples.  #
+PROGRAM
+BEGIN []INT a = (1,2,3);
+
+      ASSERT (UPB a[2:1] < LWB a[2:1]);
+      ASSERT (UPB a[20:2] < LWB a[20:2]);
+
+      [,]INT aa = ((1,2,3),
+                   (4,5,6),
+                   (7,8,9));
+      
+      ASSERT ((1 UPB aa[1,2:1]) < ((1 LWB aa[1,2:1])));
+      ASSERT ((1 UPB aa[1,20:]) < ((1 LWB aa[1,20:])));
+      0
+END
-- 
2.30.2