16 lines
294 B
Fortran
16 lines
294 B
Fortran
! RUN: %flang_fc1 -fopenmp -fopenacc -E %s 2>&1 | FileCheck %s
|
|
program main
|
|
! CHECK: k01=1+1
|
|
k01=1+
|
|
!$ & 1
|
|
|
|
! CHECK: !$omp parallel private(k01)
|
|
!$omp parallel
|
|
!$omp+ private(k01)
|
|
!$omp end parallel
|
|
|
|
! CHECK-NOT: comment
|
|
!$omp parallel
|
|
!$acc+comment
|
|
!$omp end parallel
|
|
end
|