! { 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 |