gcc/testsuite/gfortran.dg/coarray_lock_2.f90

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