llvm/flang/test/Driver/bbc-cuda-macro.cuf

! Test -fcuda option for bbc
! RUN: bbc -fcuda -o - %s | FileCheck %s

! CHECK-NOT: Unknown command line argument

program main
#if _CUDA
  integer :: var = _CUDA
#endif
  integer, device :: dvar
end program