Switzerland fined for denying asylum for gay Iranian