12 lines
208 B
Text
12 lines
208 B
Text
|
! 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
|