llvm/flang/test/Semantics/cuf-device-procedures02.cuf

! RUN: %python %S/test_errors.py %s %flang_fc1

module dev
  integer, device :: syncthreads

contains

  attributes(device) subroutine sub1()
    syncthreads = 1 ! syncthreads not overwritten by cudadevice
  end subroutine

  attributes(global) subroutine sub2()
!ERROR: 'threadfence' is use-associated from module 'cudadevice' and cannot be re-declared
    integer :: threadfence
  end subroutine
end module