[flang-commits] [flang] [flang] Enforce C15104(5) for coindexed values (PR #130203)

[Peter Klausler via flang-commits]

================
@@ -104,4 +104,11 @@ pure subroutine internal
       localhp = hasPtr(z%a)
     end subroutine
   end function
+  pure subroutine test2(hpd, hhpd)
+    use used
+    type(hasHiddenPtr), intent(in out) :: hpd, hhpd[*]
+    hpd = hhpd ! ok
----------------
klausler wrote:

That's right, and that's a distinct error.  You can't use pointer components to bypass the restrictions of `INTENT(IN)` in a pure subprogram.

https://github.com/llvm/llvm-project/pull/130203