1! PR fortran/102313
2
3!$omp end ATOMIC  ! { dg-error "Unexpected !.OMP END ATOMIC" }
4
5!$omp end CRITICAL  ! { dg-error "Unexpected !.OMP END CRITICAL" }
6
7!$omp end DISTRIBUTE  ! { dg-error "Unexpected !.OMP END DISTRIBUTE" }
8
9!$omp end DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO" }
10
11!$omp end DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO SIMD" }
12
13!$omp end DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END DISTRIBUTE SIMD" }
14
15!$omp end DO  ! { dg-error "Unexpected !.OMP END DO" }
16
17!$omp end DO SIMD  ! { dg-error "Unexpected !.OMP END DO SIMD" }
18
19!$omp end LOOP  ! { dg-error "Unexpected !.OMP END LOOP" }
20
21!$omp parallel loop
22do i = 1, 5
23end do
24!$omp end LOOP  ! { dg-error "Unexpected !.OMP END LOOP" }
25
26!$omp end MASKED  ! { dg-error "Unexpected !.OMP END MASKED" }
27
28!$omp end MASKED TASKLOOP  ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP" }
29
30!$omp end MASKED TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP SIMD" }
31
32!$omp end MASTER  ! { dg-error "Unexpected !.OMP END MASTER" }
33
34!$omp end MASTER TASKLOOP  ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP" }
35
36!$omp end MASTER TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP SIMD" }
37
38!$omp end ORDERED  ! { dg-error "Unexpected !.OMP END ORDERED" }
39
40!$omp end PARALLEL  ! { dg-error "Unexpected !.OMP END PARALLEL" }
41
42!$omp end PARALLEL DO  ! { dg-error "Unexpected !.OMP END PARALLEL DO" }
43
44!$omp end PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL DO SIMD" }
45
46!$omp loop
47!$omp end PARALLEL LOOP  ! { dg-error "Unexpected !.OMP END PARALLEL LOOP" }
48
49!$omp end PARALLEL MASKED  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED" }
50
51!$omp end PARALLEL MASKED TASKLOOP  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP" }
52
53!$omp end PARALLEL MASKED TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP SIMD" }
54
55!$omp end PARALLEL MASTER  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER" }
56
57!$omp end PARALLEL MASTER TASKLOOP  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP" }
58
59!$omp end PARALLEL MASTER TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP SIMD" }
60
61!$omp end PARALLEL SECTIONS  ! { dg-error "Unexpected !.OMP END PARALLEL SECTIONS" }
62
63!$omp end PARALLEL WORKSHARE  ! { dg-error "Unexpected !.OMP END PARALLEL WORKSHARE" }
64
65!$omp end SCOPE  ! { dg-error "Unexpected !.OMP END SCOPE" }
66
67!$omp end SECTIONS  ! { dg-error "Unexpected !.OMP END SECTIONS" }
68
69!$omp end SIMD  ! { dg-error "Unexpected !.OMP END SIMD" }
70
71!$omp end SINGLE  ! { dg-error "Unexpected !.OMP END SINGLE" }
72
73!$omp end TARGET  ! { dg-error "Unexpected !.OMP END TARGET" }
74
75!$omp end TARGET DATA  ! { dg-error "Unexpected !.OMP END TARGET DATA" }
76
77!$omp end TARGET PARALLEL  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL" }
78
79!$omp end TARGET PARALLEL DO  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO" }
80
81!$omp end TARGET PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO SIMD" }
82
83!$omp end TARGET PARALLEL LOOP  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL LOOP" }
84
85!$omp end TARGET SIMD  ! { dg-error "Unexpected !.OMP END TARGET SIMD" }
86
87!$omp end TARGET TEAMS  ! { dg-error "Unexpected !.OMP END TARGET TEAMS" }
88
89!$omp end TARGET TEAMS DISTRIBUTE  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE" }
90
91!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO" }
92
93!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD" }
94
95!$omp end TARGET TEAMS DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE SIMD" }
96
97!$omp end TARGET TEAMS LOOP  ! { dg-error "Unexpected !.OMP END TARGET TEAMS LOOP" }
98
99!$omp end TASK  ! { dg-error "Unexpected !.OMP END TASK" }
100
101!$omp end TASKGROUP  ! { dg-error "Unexpected !.OMP END TASKGROUP" }
102
103!$omp end TASKLOOP  ! { dg-error "Unexpected !.OMP END TASKLOOP" }
104
105!$omp end TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END TASKLOOP SIMD" }
106
107!$omp end TEAMS  ! { dg-error "Unexpected !.OMP END TEAMS" }
108
109!$omp end TEAMS DISTRIBUTE  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE" }
110
111!$omp end TEAMS DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO" }
112
113!$omp end TEAMS DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO SIMD" }
114
115!$omp end TEAMS DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE SIMD" }
116
117!$omp end TEAMS LOOP  ! { dg-error "Unexpected !.OMP END TEAMS LOOP" }
118
119!$omp end WORKSHARE  ! { dg-error "Unexpected !.OMP END WORKSHARE" }
120
121end  ! { dg-error "Unexpected END statement" }
122
123! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }
124