28 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! Check for existence of loop following a DO directive3 4subroutine do15 !ERROR: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct6 !$omp do7end subroutine8 9subroutine do210 !ERROR: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct11 !$omp parallel do12end subroutine13 14subroutine do315 !ERROR: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct16 !$omp simd17end subroutine18 19subroutine do420 !ERROR: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct21 !$omp do simd22end subroutine23 24subroutine do525 !ERROR: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct26 !$omp loop27end subroutine28