| ! RUN: bbc -emit-hlfir -fcuda %s 2>&1 | FileCheck %s | |
| module mod1 | |
| contains | |
| attributes(device) subroutine sub1(adev) | |
| real, device :: adev(10) | |
| end | |
| attributes(global) subroutine sub2() | |
| real, shared :: adev(10) | |
| !WARNING: SHARED attribute ignored | |
| call sub1(adev) | |
| end subroutine | |
| end module | |
| ! CHECK: warning: SHARED attribute ignored |