* added 0355 subranges problem

2025-04-19 06:19:32 +02:00 · 2000-10-07 18:45:30 +00:00 · 2000-10-07 18:45:30 +00:00 · 3a805733d1
commit 3a805733d1
parent ba47609048
1 changed files with 17 additions and 0 deletions
--- a/tests/tbs/tbs0355.pp
+++ b/tests/tbs/tbs0355.pp
@ -0,0 +1,17 @@
+{MvdV; published in core.
+    Element that is in the type zz too is not recognised as such.
+    }
+
+type xx=(notinsubset1,insubset1,insubset2,notinsubset2);
+     zz=insubset1..insubset2;
+
+     ll=record
+         yy:zz;
+         end;
+
+const oo : array[0..1] of ll = (
+                                  (yy:insubset1),
+                                  (yy:insubset2));
+begin
+end.
+