Federer Loses at Wimbledon in Upset