flang/test/Semantics/unlockstmt01.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 program test_unlock_stmt
   3
   4   use iso_fortran_env, only: lock_type
   5
   6   type(LOCK_TYPE) :: myLock[*], locks(10)[*]
   7   integer :: stat_variable
   8   character(len = 128) :: errmsg_variable
   9
  10   !___ standard-conforming statements ___
  11   UNLOCK(myLock)
  12   UNLOCK(locks(3))
  13   Unlock(locks(1), stat = stat_variable)
  14   Unlock(locks(2), ERRMSG = errmsg_variable)
  15   Unlock(locks(4), stat = stat_variable, ERRMSG = errmsg_variable)
  16 end program test_unlock_stmt