Address [#32870](https://github.com/JuliaLang/julia/issues/32870).

andreasvarga · Mar 31, 2022 · bd64bbc · bd64bbc · andreasvarga · Mar 31, 2022
1 parent 2d7acce
commit bd64bbc
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 9 deletions.
diff --git a/Project.toml b/Project.toml
@@ -1,7 +1,7 @@
 name = "MatrixPencils"
 uuid = "48965c70-4690-11ea-1f13-43a2532b2fa8"
 authors = ["Andreas Varga <varga.andreas@gmail.com>"]
-version = "1.7.3"
+version = "1.7.4"
 
 [deps]
 LinearAlgebra = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"

diff --git a/ReleaseNotes.md b/ReleaseNotes.md
@@ -1,5 +1,9 @@
 # Release Notes
 
+## Version 1.7.4
+
+Patch release to address hidden character length arguments issue discussed in [JuliaLang/julia#32870](https://github.com/JuliaLang/julia/issues/32870). 
+
 ## Version 1.7.3
 
 This patch version eliminates deprecated use of qr(..., Val{true}) by using 

diff --git a/src/lapackutil2.jl b/src/lapackutil2.jl
@@ -259,10 +259,10 @@ for (gghrd, elty) in
             ccall((@blasfunc($gghrd), liblapack), Cvoid,
                       (Ref{UInt8}, Ref{UInt8},  Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt},
                       Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt},
-                      Ptr{BlasInt}),
+                      Ptr{BlasInt}, Clong, Clong),
                       compq, compz, n, ilo, ihi, 
                       A, lda, B, ldb, Q, ldq, Z, ldz, 
-                      info)
+                      info, 1, 1)
                 chklapackerror(info[])
            return A, B, Q, Z
         end
@@ -315,12 +315,12 @@ for (hgeqz, elty) in
                        Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ptr{$elty}, Ptr{$elty}, 
                        Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, 
                        Ptr{$elty}, Ref{BlasInt}, 
-                       Ptr{BlasInt}),
+                       Ptr{BlasInt}, Clong, Clong, Clong),
                     'S', compq, compz, n, ilo, ihi, 
                     H, ldh, T, ldt, alphar, alphai, beta, 
                     Q, ldq, Z, ldz, 
                     work, lwork, 
-                    info)
+                    info, 1, 1, 1)
                 chklapackerror(info[])
                 if i == 1
                     lwork = BlasInt(real(work[1]))
@@ -378,12 +378,12 @@ for (hgeqz, elty, relty) in
                        Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ptr{$elty},  
                        Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, 
                        Ptr{$elty}, Ref{BlasInt}, Ptr{$relty}, 
-                       Ptr{BlasInt}),
+                       Ptr{BlasInt}, Clong, Clong, Clong),
                     'S', compq, compz, n, ilo, ihi, 
                     H, ldh, T, ldt, alpha, beta, 
                     Q, ldq, Z, ldz, 
                     work, lwork, rwork,
-                    info)
+                    info, 1, 1, 1)
                 chklapackerror(info[])
                 if i == 1
                     lwork = BlasInt(real(work[1]))
@@ -666,10 +666,10 @@ for (fn, elty, relty) in ((:dtgsyl_, :Float64, :Float64),
                 (Ref{UInt8}, Ref{BlasInt}, Ref{BlasInt}, Ref{BlasInt},
                  Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt},
                  Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt}, Ptr{$elty}, Ref{BlasInt},
-                 Ptr{$relty}, Ptr{$relty}, Ptr{$relty}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{BlasInt}),
+                 Ptr{$relty}, Ptr{$relty}, Ptr{$relty}, Ref{BlasInt}, Ptr{BlasInt}, Ptr{BlasInt}, Clong),
                  trans, ijob, m, n,
                  A, lda, B, ldb, C, ldc, D, ldd, E, lde, F, ldf,
-                 scale, dif, work, lwork, iwork, info)
+                 scale, dif, work, lwork, iwork, info, 1)
             chklapackerror(info[])
             C, F, scale[1]
         end