23 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! XFAIL: *3program test_unlock_stmt4 5 use iso_fortran_env, only: lock_type6 7 type(LOCK_TYPE) :: locks(10)[*]8 integer :: non_lock9 10 !ERROR: TBD11 type(LOCK_TYPE) :: non_coarray !Invalid Declaration12 13 !___ non-standard-conforming statements ___14 15 !ERROR: TBD16 UNLOCK(non_lock)17 !ERROR: Must be a scalar value, but is a rank-1 array18 UNLOCK(locks)19 20 !Sync-stat-list.f90 contains invalid versions of sync-stat-list in unlock-stmt21 22end program test_unlock_stmt23