[flang][cuda] CUF conditional compilation line with continuation triggers Unmatch'(' error

[clementval]

module m
  implicit none
  integer, parameter :: n=100 
  real(8), dimension(n,n,n) :: q1, q2, q3
  integer, dimension(n) :: kmv, jmv, imv

  real(8), device, dimension(n,n,n) :: q1_d, q2_d, q3_d
  integer, device, dimension(n) :: kmv_d, jmv_d, imv_d
contains
 subroutine ss1
  integer :: ic, jc, kc, im, jm, km, kstartp=1, kend=n, n2m=n, n1m=n
  
  !@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &
  !@CUF           kmv => kmv_d, jmv => jmv_d, imv => imv_d)

  !$cuf kernel do(3) <<<*,*>>>
  do kc=kstartp,kend
     do jc=1,n2m
        do ic=1,n1m
        end do
     end do
  end do
  !@CUF end associate
 end subroutine
end module m

$ bbc -fcuda example.cuf
./bin/bbc: could not scan example.cuf
./example.cuf:13:18: error: Unmatched '('
    !@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &

[clementval]

@klausler Let me know if it's something you can have a look at.

[llvmbot]

@llvm/issue-subscribers-clang-frontend

Author: Valentin Clement (バレンタイン クレメン) (clementval)

``` module m implicit none integer, parameter :: n=100 real(8), dimension(n,n,n) :: q1, q2, q3 integer, dimension(n) :: kmv, jmv, imv

real(8), device, dimension(n,n,n) :: q1_d, q2_d, q3_d
integer, device, dimension(n) :: kmv_d, jmv_d, imv_d
contains
subroutine ss1
integer :: ic, jc, kc, im, jm, km, kstartp=1, kend=n, n2m=n, n1m=n

!@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &
!@CUF kmv => kmv_d, jmv => jmv_d, imv => imv_d)

!$cuf kernel do(3) <<<,>>>
do kc=kstartp,kend
do jc=1,n2m
do ic=1,n1m
end do
end do
end do
!@CUF end associate
end subroutine
end module m

$ bbc -fcuda example.cuf
./bin/bbc: could not scan example.cuf
./example.cuf:13:18: error: Unmatched '('
!@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &

</details>

[llvmbot]

@llvm/issue-subscribers-flang-frontend

Author: Valentin Clement (バレンタイン クレメン) (clementval)

``` module m implicit none integer, parameter :: n=100 real(8), dimension(n,n,n) :: q1, q2, q3 integer, dimension(n) :: kmv, jmv, imv

real(8), device, dimension(n,n,n) :: q1_d, q2_d, q3_d
integer, device, dimension(n) :: kmv_d, jmv_d, imv_d
contains
subroutine ss1
integer :: ic, jc, kc, im, jm, km, kstartp=1, kend=n, n2m=n, n1m=n

!@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &
!@CUF kmv => kmv_d, jmv => jmv_d, imv => imv_d)

!$cuf kernel do(3) <<<,>>>
do kc=kstartp,kend
do jc=1,n2m
do ic=1,n1m
end do
end do
end do
!@CUF end associate
end subroutine
end module m

$ bbc -fcuda example.cuf
./bin/bbc: could not scan example.cuf
./example.cuf:13:18: error: Unmatched '('
!@CUF associate(q1 => q1_d, q2 => q2_d, q3 => q3_d, &

</details>