Fix errors with istriu and istril

Author: amontoison

src/blas/highlevel.jl

@@ -90,6 +90,8 @@ end
 # BLAS 2
 #
 
+# work around upstream breakage from JuliaLang/julia#55547
+@static if VERSION >= v"1.11.2"
 const ROCUpperOrUnitUpperTriangular = LinearAlgebra.UpperOrUnitUpperTriangular{
     <:Any,<:Union{<:ROCArray, Adjoint{<:Any, <:ROCArray}, Transpose{<:Any, <:ROCArray}}}
 const ROCLowerOrUnitLowerTriangular = LinearAlgebra.LowerOrUnitLowerTriangular{
@@ -99,6 +101,7 @@ LinearAlgebra.istriu(::ROCUpperOrUnitUpperTriangular) = true
 LinearAlgebra.istril(::ROCUpperOrUnitUpperTriangular) = false
 LinearAlgebra.istriu(::ROCLowerOrUnitLowerTriangular) = false
 LinearAlgebra.istril(::ROCLowerOrUnitLowerTriangular) = true
+end
 
 # multiplication
 LinearAlgebra.generic_trimatmul!(

src/sparse/array.jl

@@ -293,10 +293,10 @@ LinearAlgebra.ishermitian(M::Union{ROCSparseMatrixCSC,ROCSparseMatrixCSR}) = fal
 LinearAlgebra.issymmetric(M::Symmetric{ROCSparseMatrixCSC}) = true
 LinearAlgebra.ishermitian(M::Hermitian{ROCSparseMatrixCSC}) = true
 
-LinearAlgebra.istriu(M::UpperTriangular{T,S}) where {T<:BlasFloat, S<:AbstractROCSparseMatrix} = true
-LinearAlgebra.istril(M::UpperTriangular{T,S}) where {T<:BlasFloat, S<:AbstractROCSparseMatrix} = false
-LinearAlgebra.istriu(M::LowerTriangular{T,S}) where {T<:BlasFloat, S<:AbstractROCSparseMatrix} = false
-LinearAlgebra.istril(M::LowerTriangular{T,S}) where {T<:BlasFloat, S<:AbstractROCSparseMatrix} = true
+LinearAlgebra.istriu(M::UpperTriangular{T,S}) where {T<:BlasFloat, S<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}} = true
+LinearAlgebra.istril(M::UpperTriangular{T,S}) where {T<:BlasFloat, S<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}} = false
+LinearAlgebra.istriu(M::LowerTriangular{T,S}) where {T<:BlasFloat, S<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}} = false
+LinearAlgebra.istril(M::LowerTriangular{T,S}) where {T<:BlasFloat, S<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}} = true
 
 Hermitian{T}(Mat::ROCSparseMatrix{T}) where T = Hermitian{T,typeof(Mat)}(Mat,'U')
 

src/sparse/linalg.jl

@@ -29,3 +29,15 @@ function LinearAlgebra.opnorm(A::ROCSparseMatrixCSR, p::Real=2)
 end
 
 LinearAlgebra.opnorm(A::ROCSparseMatrixCSC, p::Real=2) = opnorm(ROCSparseMatrixCSR(A), p)
+
+# work around upstream breakage from JuliaLang/julia#55547
+@static if VERSION >= v"1.11.2"
+    const ROCSparseUpperOrUnitUpperTriangular = LinearAlgebra.UpperOrUnitUpperTriangular{
+        <:Any,<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}}
+    const ROCSparseLowerOrUnitLowerTriangular = LinearAlgebra.LowerOrUnitLowerTriangular{
+        <:Any,<:Union{<:AbstractROCSparseMatrix, Adjoint{<:Any, <:AbstractROCSparseMatrix}, Transpose{<:Any, <:AbstractROCSparseMatrix}}}
+    LinearAlgebra.istriu(::ROCSparseUpperOrUnitUpperTriangular) = true
+    LinearAlgebra.istril(::ROCSparseUpperOrUnitUpperTriangular) = false
+    LinearAlgebra.istriu(::ROCSparseLowerOrUnitLowerTriangular) = false
+    LinearAlgebra.istril(::ROCSparseLowerOrUnitLowerTriangular) = true
+end