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