flang/test/Driver/cuda-option.f90

   1 ! Test -fcuda option
   2 ! RUN: %flang_fc1 -cpp -x cuda -fdebug-unparse %s -o - | FileCheck %s
   3 ! RUN: not %flang_fc1 -cpp %s -o - 2>&1 | FileCheck %s --check-prefix=ERROR
   4 program main
   5 #if _CUDA
   6   integer :: var = _CUDA
   7 #endif
   8   integer, device :: dvar
   9 end program
  10
  11 ! CHECK-LABEL: PROGRAM main
  12 ! CHECK: INTEGER :: var = 1
  13 ! CHECK: INTEGER, DEVICE :: dvar
  14
  15 ! ERROR: cuda-option.f90:{{.*}}:{{.*}}: error: expected end of statement