flang/test/Semantics/cuf17.cuf

   1 ! RUN: bbc -emit-hlfir -fcuda %s 2>&1 | FileCheck %s
   2
   3 module mod1
   4 contains
   5
   6 attributes(device) subroutine sub1(adev)
   7   real, device :: adev(10)
   8 end
   9
  10 attributes(global) subroutine sub2()
  11   real, shared :: adev(10)
  12   !WARNING: SHARED attribute ignored
  13   call sub1(adev)
  14 end subroutine
  15
  16 end module
  17
  18 ! CHECK: warning: SHARED attribute ignored