1! { dg-do compile } 2! { dg-options "-fcoarray=single -std=f2008" } 3! 4! LOCK/UNLOCK intrinsics 5! 6! PR fortran/18918 7! 8integer :: a[*] 9integer :: s 10character(len=3) :: c 11logical :: bool 12 13LOCK (a, stat=s, acquired_lock=bool, errmsg=c) ! { dg-error "must be a scalar of type LOCK_TYPE" } 14UNLOCK (a, stat=s, errmsg=c) ! { dg-error "must be a scalar of type LOCK_TYPE" } 15end 16