062e69a647
PR #101009 exposed a semantic check issue with OPTIONAL dummy arguments. Another issue occurred when using %{re,im,len,kind}, as these also need to be skipped when handling variables with implicitly defined DSAs. These issues were found by Fujitsu testsuite.
14 lines
324 B
Fortran
14 lines
324 B
Fortran
! RUN: %flang_fc1 -fopenmp -fsyntax-only %s
|
|
|
|
! Check that using %re/%im inside 'parallel' doesn't cause syntax errors.
|
|
subroutine test_complex_re_im
|
|
complex :: cc(4) = (1,2)
|
|
integer :: i
|
|
|
|
!$omp parallel do private(cc)
|
|
do i = 1, 4
|
|
print *, cc(i)%re, cc(i)%im
|
|
end do
|
|
!$omp end parallel do
|
|
end subroutine
|