77cd34eedf
An OpenMP, OpenACC, or CUDA conditional line should be treated as a comment when that's what its payload contains, not as a conditional source line that will confuse the parser when it is indeed just a comment.
45 lines
1.1 KiB
Fortran
45 lines
1.1 KiB
Fortran
!RUN: %flang_fc1 -E %s | FileCheck --check-prefix=PREPRO %s
|
|
!RUN: %flang_fc1 -fdebug-unparse %s | FileCheck --check-prefix=NORMAL %s
|
|
!RUN: %flang_fc1 -fopenmp -fdebug-unparse %s | FileCheck --check-prefix=OMP %s
|
|
|
|
c$ !
|
|
|
|
C$
|
|
continue
|
|
|
|
k=0 w
|
|
k=0
|
|
c$ 0 x
|
|
c$ 1 y
|
|
c$ 2 k= z
|
|
c$ ! A
|
|
c$ !1 B
|
|
print *,k
|
|
*$1 continue
|
|
end
|
|
|
|
!PREPRO: continue
|
|
!PREPRO: k=0
|
|
!PREPRO: k=0
|
|
!PREPRO:!$
|
|
!PREPRO:!$ &
|
|
!PREPRO:!$ &k=
|
|
!PREPRO:!$ &
|
|
!PREPRO:!$ &1
|
|
!PREPRO: print *,k
|
|
!PREPRO:!$ 1 continue
|
|
!PREPRO: end
|
|
|
|
!NORMAL: k=0_4
|
|
!NORMAL: k=0_4
|
|
!NORMAL: PRINT *, k
|
|
!NORMAL:END PROGRAM
|
|
|
|
!OMP: CONTINUE
|
|
!OMP: k=0_4
|
|
!OMP: k=0_4
|
|
!OMP: k=1_4
|
|
!OMP: PRINT *, k
|
|
!OMP: 1 CONTINUE
|
|
!OMP:END PROGRAM
|