gcc/testsuite/gfortran.dg/gomp/unexpected-end.f90


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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

! PR fortran/102313

!$omp end ATOMIC  ! { dg-error "Unexpected !.OMP END ATOMIC" }

!$omp end CRITICAL  ! { dg-error "Unexpected !.OMP END CRITICAL" }

!$omp end DISTRIBUTE  ! { dg-error "Unexpected !.OMP END DISTRIBUTE" }

!$omp end DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO" }

!$omp end DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END DISTRIBUTE PARALLEL DO SIMD" }

!$omp end DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END DISTRIBUTE SIMD" }

!$omp end DO  ! { dg-error "Unexpected !.OMP END DO" }

!$omp end DO SIMD  ! { dg-error "Unexpected !.OMP END DO SIMD" }

!$omp end LOOP  ! { dg-error "Unexpected !.OMP END LOOP" }

!$omp parallel loop
do i = 1, 5
end do
!$omp end LOOP  ! { dg-error "Unexpected !.OMP END LOOP" }

!$omp end MASKED  ! { dg-error "Unexpected !.OMP END MASKED" }

!$omp end MASKED TASKLOOP  ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP" }

!$omp end MASKED TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END MASKED TASKLOOP SIMD" }

!$omp end MASTER  ! { dg-error "Unexpected !.OMP END MASTER" }

!$omp end MASTER TASKLOOP  ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP" }

!$omp end MASTER TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END MASTER TASKLOOP SIMD" }

!$omp end ORDERED  ! { dg-error "Unexpected !.OMP END ORDERED" }

!$omp end PARALLEL  ! { dg-error "Unexpected !.OMP END PARALLEL" }

!$omp end PARALLEL DO  ! { dg-error "Unexpected !.OMP END PARALLEL DO" }

!$omp end PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL DO SIMD" }

!$omp loop
!$omp end PARALLEL LOOP  ! { dg-error "Unexpected !.OMP END PARALLEL LOOP" }

!$omp end PARALLEL MASKED  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED" }

!$omp end PARALLEL MASKED TASKLOOP  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP" }

!$omp end PARALLEL MASKED TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL MASKED TASKLOOP SIMD" }

!$omp end PARALLEL MASTER  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER" }

!$omp end PARALLEL MASTER TASKLOOP  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP" }

!$omp end PARALLEL MASTER TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END PARALLEL MASTER TASKLOOP SIMD" }

!$omp end PARALLEL SECTIONS  ! { dg-error "Unexpected !.OMP END PARALLEL SECTIONS" }

!$omp end PARALLEL WORKSHARE  ! { dg-error "Unexpected !.OMP END PARALLEL WORKSHARE" }

!$omp end SCOPE  ! { dg-error "Unexpected !.OMP END SCOPE" }

!$omp end SECTIONS  ! { dg-error "Unexpected !.OMP END SECTIONS" }

!$omp end SIMD  ! { dg-error "Unexpected !.OMP END SIMD" }

!$omp end SINGLE  ! { dg-error "Unexpected !.OMP END SINGLE" }

!$omp end TARGET  ! { dg-error "Unexpected !.OMP END TARGET" }

!$omp end TARGET DATA  ! { dg-error "Unexpected !.OMP END TARGET DATA" }

!$omp end TARGET PARALLEL  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL" }

!$omp end TARGET PARALLEL DO  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO" }

!$omp end TARGET PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL DO SIMD" }

!$omp end TARGET PARALLEL LOOP  ! { dg-error "Unexpected !.OMP END TARGET PARALLEL LOOP" }

!$omp end TARGET SIMD  ! { dg-error "Unexpected !.OMP END TARGET SIMD" }

!$omp end TARGET TEAMS  ! { dg-error "Unexpected !.OMP END TARGET TEAMS" }

!$omp end TARGET TEAMS DISTRIBUTE  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE" }

!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO" }

!$omp end TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD" }

!$omp end TARGET TEAMS DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END TARGET TEAMS DISTRIBUTE SIMD" }

!$omp end TARGET TEAMS LOOP  ! { dg-error "Unexpected !.OMP END TARGET TEAMS LOOP" }

!$omp end TASK  ! { dg-error "Unexpected !.OMP END TASK" }

!$omp end TASKGROUP  ! { dg-error "Unexpected !.OMP END TASKGROUP" }

!$omp end TASKLOOP  ! { dg-error "Unexpected !.OMP END TASKLOOP" }

!$omp end TASKLOOP SIMD  ! { dg-error "Unexpected !.OMP END TASKLOOP SIMD" }

!$omp end TEAMS  ! { dg-error "Unexpected !.OMP END TEAMS" }

!$omp end TEAMS DISTRIBUTE  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE" }

!$omp end TEAMS DISTRIBUTE PARALLEL DO  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO" }

!$omp end TEAMS DISTRIBUTE PARALLEL DO SIMD  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE PARALLEL DO SIMD" }

!$omp end TEAMS DISTRIBUTE SIMD  ! { dg-error "Unexpected !.OMP END TEAMS DISTRIBUTE SIMD" }

!$omp end TEAMS LOOP  ! { dg-error "Unexpected !.OMP END TEAMS LOOP" }

!$omp end WORKSHARE  ! { dg-error "Unexpected !.OMP END WORKSHARE" }

end  ! { dg-error "Unexpected END statement" }

! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }