*** empty log message ***

bugs/bug0197.pp

@@ -0,0 +1,13 @@
+
+var i : DWord;
+    c1, c2 : comp;
+
+begin
+     c1 := 20000; c2 := 100;
+     i := 0;
+     repeat
+           inc(i);
+           c1 := (abs(3*c1)-c2) < c2;   { notice this !!! :) :) }
+     until (i > 1000);
+     Writeln(c1);
+end.

bugs/readme.txt

@@ -262,3 +262,5 @@ bug0193.pp   overflow checking for 8 and 16 bit operations wrong
 bug0194.pp   @procedure var returns value in it instead of address !!
 bug0195.pp   Problem with Getimage, crash of DOS box, even with dpmiexcp!!
 bug0196.pp   "function a;" is accepted (should require result type)
+bug0197.pp   should produce an error: problem with c1:=c2<c3 where c? is
+             a comp type