32 lines · plain
1! RUN: split-file %s %t2! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_end1.f90 2>&1 | FileCheck %t/stray_end1.f903! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_end2.f90 2>&1 | FileCheck %t/stray_end2.f904! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_begin.f90 2>&1 | FileCheck %t/stray_begin.f905 6 7!--- stray_end1.f908! Parser error9 10subroutine stray_end111 !CHECK: error: Misplaced OpenMP end-directive12 !$omp end tile13end subroutine14 15 16!--- stray_end2.f9017 18subroutine stray_end219 print *20 !CHECK: error: Misplaced OpenMP end-directive21 !$omp end tile22end subroutine23 24 25!--- stray_begin.f9026 27subroutine stray_begin28 !CHECK: error: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct29 !$omp tile sizes(2)30end subroutine31 32