! RUN: %flang_fc1 -fdebug-dump-symbols %s 2>&1 | FileCheck --dump-input-context=500 %s
!CHECK: Global scope: size=0 alignment=1 sourceRange=0 bytes
!CHECK: IntrinsicModules scope: size=0 alignment=1 sourceRange=0 bytes
!CHECK: Module scope: __fortran_builtins
!CHECK: Module scope: __cuda_builtins size=0 alignment=1
!CHECK: Module scope: __fortran_type_info
!CHECK: Module scope: m size=0 alignment=1
!CHECK: Subprogram scope: devsubr size=0 alignment=1
module m
implicit none
contains
attributes(device) subroutine devsubr()
!CHECK: blockdim: Use from blockdim in __cuda_builtins
!CHECK: blockidx: Use from blockidx in __cuda_builtins
!CHECK: griddim: Use from griddim in __cuda_builtins
!CHECK: threadidx: Use from threadidx in __cuda_builtins
!CHECK: warpsize: Use from warpsize in __cuda_builtins
end subroutine
end module