Six-time Wimbledon champ Federer shocked by Berdych in quarters