!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