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