1! RUN: %flang_fc1 -fopenmp -fsyntax-only %s 2 3! Check that using %re/%im inside 'parallel' doesn't cause syntax errors. 4subroutine test_complex_re_im 5 complex :: cc(4) = (1,2) 6 integer :: i 7 8 !$omp parallel do private(cc) 9 do i = 1, 4 10 print *, cc(i)%re, cc(i)%im 11 end do 12 !$omp end parallel do 13end subroutine 14