xref: /llvm-project/flang/test/Semantics/cuf-device-procedures02.cuf (revision 6d50a79b721760fa5e10b81ebe6d1e37f141f61b) 
1*6d50a79bSValentin Clement (バレンタイン クレメン)! RUN: %python %S/test_errors.py %s %flang_fc1
2*6d50a79bSValentin Clement (バレンタイン クレメン)
3*6d50a79bSValentin Clement (バレンタイン クレメン)module dev
4*6d50a79bSValentin Clement (バレンタイン クレメン)  integer, device :: syncthreads
5*6d50a79bSValentin Clement (バレンタイン クレメン)
6*6d50a79bSValentin Clement (バレンタイン クレメン)contains
7*6d50a79bSValentin Clement (バレンタイン クレメン)
8*6d50a79bSValentin Clement (バレンタイン クレメン)  attributes(device) subroutine sub1()
9*6d50a79bSValentin Clement (バレンタイン クレメン)    syncthreads = 1 ! syncthreads not overwritten by cudadevice
10*6d50a79bSValentin Clement (バレンタイン クレメン)  end subroutine
11*6d50a79bSValentin Clement (バレンタイン クレメン)
12*6d50a79bSValentin Clement (バレンタイン クレメン)  attributes(global) subroutine sub2()
13*6d50a79bSValentin Clement (バレンタイン クレメン)!ERROR: 'threadfence' is use-associated from module 'cudadevice' and cannot be re-declared
14*6d50a79bSValentin Clement (バレンタイン クレメン)    integer :: threadfence
15*6d50a79bSValentin Clement (バレンタイン クレメン)  end subroutine
16*6d50a79bSValentin Clement (バレンタイン クレメン)end module
17*6d50a79bSValentin Clement (バレンタイン クレメン)
18