freepascal.compiler/bugs/bug0041.pp

var
 b1: boolean;
Begin
  begin
     If b1 then      { illegal expression }
  end;
  while b1 do
End.