diff options
Diffstat (limited to 'flang/test/Semantics/OpenMP/missing-end-directive.f90')
| -rw-r--r-- | flang/test/Semantics/OpenMP/missing-end-directive.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/flang/test/Semantics/OpenMP/missing-end-directive.f90 b/flang/test/Semantics/OpenMP/missing-end-directive.f90 new file mode 100644 index 000000000000..6068740999ed --- /dev/null +++ b/flang/test/Semantics/OpenMP/missing-end-directive.f90 @@ -0,0 +1,17 @@ +! RUN: %python %S/../test_errors.py %s %flang -fopenmp + +! Test that we can diagnose missing end directives without an explosion of errors + +! ERROR: Expected OpenMP END PARALLEL directive +!$omp parallel +! ERROR: Expected OpenMP END TASK directive +!$omp task +! ERROR: Expected OpenMP END SECTIONS directive +!$omp sections +! ERROR: Expected OpenMP END PARALLEL directive +!$omp parallel +! ERROR: Expected OpenMP END TASK directive +!$omp task +! ERROR: Expected OpenMP END SECTIONS directive +!$omp sections +end |