8b91de5d6a
Fixes #67947 --------- Co-authored-by: SiHuaN <liyongtai@iscas.ac.cn> Co-authored-by: Leandro Lupori <leandro.lupori@gmail.com>
17 lines
294 B
Fortran
17 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
|