Patch LAPACK XLASD4.f as discussed in JuliaLang/julia#2340