llvm/flang/test/Semantics/unlockstmt02.f90

! RUN: %python %S/test_errors.py %s %flang_fc1
! XFAIL: *
program test_unlock_stmt

  use iso_fortran_env, only: lock_type

  type(LOCK_TYPE) :: locks(10)[*]
  integer :: non_lock

  !ERROR: TBD
  type(LOCK_TYPE) :: non_coarray !Invalid Declaration

  !___ non-standard-conforming statements ___

  !ERROR: TBD
  UNLOCK(non_lock)
  !ERROR: Must be a scalar value, but is a rank-1 array
  UNLOCK(locks)

 !Sync-stat-list.f90 contains invalid versions of sync-stat-list in unlock-stmt

end program test_unlock_stmt