Fix another bad R22upper

Author: kshyatt

src/pullbacks/qr.jl

@@ -175,8 +175,12 @@ function remove_qr_gauge_dependence!(ΔQ, ΔR, A, Q, R; rank_atol = MatrixAlgebr
         # compute the appropriate offset in ΔR so we aren't
         # operating on a view-of-view, which doesn't work
         # for GPU arrays
-        offset = LinearIndices(ΔR)[r + 1, r + 1]
-        upper_inds = uppertriangularind(ΔR₂₂) .+ offset
+        # uppertriangularind generates linear indices
+        # compute the appropriate offset in ΔR so we aren't
+        # operating on a view-of-view, which doesn't work
+        # for GPU arrays
+        I = uppertriangularind(ΔR₂₂)
+        upper_inds = view(LinearIndices(ΔR), (p + 1):minmn, (p + 1):n)[I]
         ΔR₂₂upper = view(ΔR, upper_inds)
         zero!(ΔR₂₂upper)
     end