1! Test -fcuda option for bbc 2! RUN: bbc -fcuda -o - %s | FileCheck %s 3 4! CHECK-NOT: Unknown command line argument 5 6program main 7#if _CUDA 8 integer :: var = _CUDA 9#endif 10 integer, device :: dvar 11end program 12