17 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program test_unlock_stmt3 4 use iso_fortran_env, only: lock_type5 6 type(LOCK_TYPE) :: myLock[*], locks(10)[*]7 integer :: stat_variable8 character(len = 128) :: errmsg_variable9 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)16end program test_unlock_stmt17