16 lines · plain
1! Test -fcuda option2! RUN: %flang_fc1 -cpp -x cuda -fdebug-unparse %s -o - | FileCheck %s3! RUN: not %flang_fc1 -cpp %s -o - 2>&1 | FileCheck %s --check-prefix=ERROR4program main5#if _CUDA6 integer :: var = _CUDA7#endif8 integer, device :: dvar9end program10 11! CHECK-LABEL: PROGRAM MAIN12! CHECK: INTEGER :: var = 113! CHECK: INTEGER, DEVICE :: dvar14 15! ERROR: cuda-option.f90:{{.*}}:{{.*}}: error: expected end of statement16