flang/test/Semantics/unlockstmt02.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! XFAIL: *
   3 program test_unlock_stmt
   4
   5   use iso_fortran_env, only: lock_type
   6
   7   type(LOCK_TYPE) :: locks(10)[*]
   8   integer :: non_lock
   9
  10   !ERROR: TBD
  11   type(LOCK_TYPE) :: non_coarray !Invalid Declaration
  12
  13   !___ non-standard-conforming statements ___
  14
  15   !ERROR: TBD
  16   UNLOCK(non_lock)
  17   !ERROR: Must be a scalar value, but is a rank-1 array
  18   UNLOCK(locks)
  19
  20  !Sync-stat-list.f90 contains invalid versions of sync-stat-list in unlock-stmt
  21
  22 end program test_unlock_stmt