-
Notifications
You must be signed in to change notification settings - Fork 10.7k
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
[flang] Add new semantics tests for
unlock-stmt
Add two semantics tests for `unlock-stmt`, one with standard-conforming and one with non-standard conforming statements Reviewed By: ktras Differential Revision: https://reviews.llvm.org/D157409
- Loading branch information
1 parent
b7af329
commit bee23de
Showing
2 changed files
with
38 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,16 @@ | ||
! RUN: %python %S/test_errors.py %s %flang_fc1 | ||
program test_unlock_stmt | ||
|
||
use iso_fortran_env, only: lock_type | ||
|
||
type(LOCK_TYPE) :: myLock[*], locks(10)[*] | ||
integer :: stat_variable | ||
character(len = 128) :: errmsg_variable | ||
|
||
!___ standard-conforming statements ___ | ||
UNLOCK(myLock) | ||
UNLOCK(locks(3)) | ||
Unlock(locks(1), stat = stat_variable) | ||
Unlock(locks(2), ERRMSG = errmsg_variable) | ||
Unlock(locks(4), stat = stat_variable, ERRMSG = errmsg_variable) | ||
end program test_unlock_stmt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,22 @@ | ||
! RUN: %python %S/test_errors.py %s %flang_fc1 | ||
! XFAIL: * | ||
program test_unlock_stmt | ||
|
||
use iso_fortran_env, only: lock_type | ||
|
||
type(LOCK_TYPE) :: locks(10)[*] | ||
integer :: non_lock | ||
|
||
!ERROR: TBD | ||
type(LOCK_TYPE) :: non_coarray !Invalid Declaration | ||
|
||
!___ non-standard-conforming statements ___ | ||
|
||
!ERROR: TBD | ||
UNLOCK(non_lock) | ||
!ERROR: Must be a scalar value, but is a rank-1 array | ||
UNLOCK(locks) | ||
|
||
!Sync-stat-list.f90 contains invalid versions of sync-stat-list in unlock-stmt | ||
|
||
end program test_unlock_stmt |