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