1! RUN: %python %S/test_errors.py %s %flang_fc1 2! XFAIL: * 3program 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 22end program test_unlock_stmt 23