*** empty log message ***

tests/test/readme.txt

@@ -30,3 +30,5 @@ case .................. testcase.pp    tests case statements with byte and word
                                        sized decision variables
                         testcas2.pp    tests case with sub enum types
 Arrays ................ testarr1.pp    small test for open arrays with classes
+Enumerations .......... testenm1.pp    tests assignments of subrange
+                                       enumerations

tests/test/testenm1.pp

@@ -0,0 +1,14 @@
+type
+  days = (mon,tue,wed,thu,fri,sat,sun);
+  weekend = sat..sun;
+
+procedure t2(day: weekend);
+begin
+  if day = sat then
+    writeln('ok')
+  else writeln('error');
+end;
+
+begin
+  t2(sat);
+end.