{opt++}
program test;

   procedure p;

      var
         i, j, k, l: integer;

      begin
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         i := j+k;
         for i := 1 to j+k do
            begin
            l := i+1;
            k := 10;
            end;
     end;

   begin
   end.


