mirror of git://gcc.gnu.org/git/gcc.git
16 lines
369 B
Fortran
16 lines
369 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-fcoarray=single -std=f2008" }
|
|
!
|
|
! LOCK/UNLOCK intrinsics
|
|
!
|
|
! PR fortran/18918
|
|
!
|
|
integer :: a[*]
|
|
integer :: s
|
|
character(len=3) :: c
|
|
logical :: bool
|
|
|
|
LOCK (a, stat=s, acquired_lock=bool, errmsg=c) ! { dg-error "must be a scalar of type LOCK_TYPE" }
|
|
UNLOCK (a, stat=s, errmsg=c) ! { dg-error "must be a scalar of type LOCK_TYPE" }
|
|
end
|