10 lines · plain
1! RUN: %flang_fc1 -fopenmp -fsyntax-only %s2 3! Check that using 'present' inside 'parallel' doesn't cause syntax errors.4subroutine test_present(opt)5 integer, optional :: opt6 !$omp parallel7 if (present(opt)) print *, "present"8 !$omp end parallel9end subroutine10