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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP version 5.0.0
! 2.8.1 sections construct
! The code enclosed in a sections construct must be a structured block.
program OmpConstructSections01
use omp_lib
integer :: section_count = 0
integer, parameter :: NT = 4
print *, 'section_count', section_count
!ERROR: invalid branch into an OpenMP structured block
!ERROR: invalid branch into an OpenMP structured block
!ERROR: invalid branch into an OpenMP structured block
if (NT) 20, 30, 40
!ERROR: invalid branch into an OpenMP structured block
goto 20
!$omp sections
!$omp section
print *, "This is a single statement structured block"
!$omp section
open (10, file="random-file-name.txt", err=30)
!ERROR: invalid branch into an OpenMP structured block
!ERROR: invalid branch leaving an OpenMP structured block
open (10, file="random-file-name.txt", err=40)
!$omp section
section_count = section_count + 1
20 print *, 'Entering into section'
call calledFromWithinSection()
print *, 'section_count', section_count
!$omp section
section_count = section_count + 1
print *, 'section_count', section_count
!ERROR: invalid branch leaving an OpenMP structured block
goto 10
!$omp section
30 print *, "Error in opening file"
!$omp end sections
10 print *, 'Jump from section'
!$omp sections
!$omp section
40 print *, 'Error in opening file'
!$omp end sections
end program OmpConstructSections01
function returnFromSections()
!$omp sections
!$omp section
!ERROR: RETURN statement is not allowed in a SECTIONS construct
RETURN
!$omp end sections
end function
subroutine calledFromWithinSection()
print *, "I am called from within a 'section' structured block"
return
end subroutine calledFromWithinSection
subroutine continueWithinSections()
integer i
do i = 1, 10
print *, "Statement within loop but outside section construct"
!$omp sections
!$omp section
IF (i .EQ. 5) THEN
!ERROR: CYCLE to construct outside of SECTIONS construct is not allowed
CYCLE
END IF
!$omp end sections
print *, "Statement within loop but outside section contruct"
end do
!$omp sections
!$omp section
do i = 1, 10
CYCLE
end do
!$omp end sections
!$omp sections
!$omp section
loop_1: do i = 1, 10
IF (i .EQ. 5) THEN
CYCLE loop_1
END IF
end do loop_1
!$omp end sections
loop_2: do i = 1, 10
!$omp sections
!$omp section
IF (i .EQ. 5) THEN
!ERROR: CYCLE to construct 'loop_2' outside of SECTIONS construct is not allowed
CYCLE loop_2
END IF
!$omp end sections
end do loop_2
end subroutine continueWithinSections
subroutine breakWithinSections()
loop_3: do i = 1, 10
!$omp sections
!$omp section
IF (i .EQ. 5) THEN
!ERROR: EXIT to construct 'loop_3' outside of SECTIONS construct is not allowed
EXIT loop_3
END IF
!$omp end sections
end do loop_3
loop_4: do i = 1, 10
!$omp sections
!$omp section
IF (i .EQ. 5) THEN
!ERROR: EXIT to construct outside of SECTIONS construct is not allowed
EXIT
END IF
!$omp end sections
end do loop_4
!$omp sections
!$omp section
do i = 1, 10
IF (i .EQ. 5) THEN
EXIT
END IF
end do
!$omp end sections
!$omp sections
!$omp section
loop_5: do i = 1, 10
IF (i .EQ. 5) THEN
EXIT loop_5
END IF
end do loop_5
!$omp end sections
end subroutine breakWithinSections
|
