blob: 3cb0ea96975c81d9c71688ffcaa04210963d53d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
! RUN: split-file %s %t
! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_end1.f90 2>&1 | FileCheck %t/stray_end1.f90
! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_end2.f90 2>&1 | FileCheck %t/stray_end2.f90
! RUN: not %flang_fc1 -fsyntax-only -fopenmp %t/stray_begin.f90 2>&1 | FileCheck %t/stray_begin.f90
!--- stray_end1.f90
! Parser error
subroutine stray_end1
!CHECK: error: expected OpenMP construct
!$omp end tile
end subroutine
!--- stray_end2.f90
subroutine stray_end2
print *
!CHECK: error: expected 'END'
!$omp end tile
end subroutine
!--- stray_begin.f90
subroutine stray_begin
!CHECK: error: OpenMP loop construct should contain a DO-loop or a loop-nest-generating OpenMP construct
!$omp tile sizes(2)
end subroutine
|
