* some bug files updated to show better the error

bugs/bug0049.pp

@@ -2,5 +2,10 @@ type
    days = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
    weekend = Sat..Sun;
 
+var
+   w : weekend;
+
 begin
+   w:=5;
+   {$error the line before should produce an error }
 end.

bugs/bug0090.pp

@@ -1,9 +1,10 @@
 {$X+}
 var
- mystr : array[0..3] of char;
+ mystr : array[0..4] of char;
 
 Begin
   if mystr = #0#0#0#0 then
   Begin
   end;
+  mystr:=#0#0#0#0;
 end.

bugs/bug0131.pp

@@ -1,4 +1,4 @@
-type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2] of Byte;
+type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..3,1..3,1..3,1..3] of Byte;
 
 var v,w: ta;
     e: longint;
@@ -6,6 +6,6 @@ var v,w: ta;
 Begin
   e :=1;
   v[e,e,e,e,e,e,e,e,e,e] :=1;
-  w[e,e,e,e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
+  w[e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,v[e,e,e,e,e,e,v[e,v[e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,e,e],e,e,e,e,e,e,e,e],e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
   writeln(w[e,e,e,e,e,e,e,e,e,e])
 end.