[clangd] Re-land "support outgoing calls in call hierarchy" (#117673)

[llvm-project.git] / flang / test / Semantics / OpenMP / present.f90

! RUN: %flang_fc1 -fopenmp -fsyntax-only %s

! Check that using 'present' inside 'parallel' doesn't cause syntax errors.
subroutine test_present(opt)
  integer, optional :: opt
  !$omp parallel
    if (present(opt)) print *, "present"
  !$omp end parallel
end subroutine