[flang-commits] [flang] [flang] Allow LOCK_TYPE & al. to associate with INTENT(IN OUT) (PR #121413)

[Eugene Epshteyn via flang-commits]

================
@@ -113,3 +113,14 @@ pure subroutine test7(lp)
     lp%next%next => null()
   end
 end module
+program main
+  use iso_fortran_env, only: lock_type
+  type(lock_type) lock
+  interface
+    subroutine inoutlock(lock)
+      import lock_type
+      type(lock_type), intent(in out) :: lock
----------------
eugeneepshteyn wrote:

Should there also be a negative test for `type(lock_type` passed as `intent(in)` and `intent(out)`?

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