gcc/testsuite/gfortran.dg/coarray_lock_1.f90

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