blob: 1aa2880cda831e4dba06f3392e99228141897643 (
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
32
33
34
35
36
37
38
39
40
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 5.0
! 2.9.3.1 simd Construct
! - A program that branches into or out of a simd region is non-conforming.
! - The associated loops must be structured blocks
program omp_simd
integer i, j
!$omp simd
do i = 1, 10
do j = 1, 10
print *, "omp simd"
!ERROR: invalid branch leaving an OpenMP structured block
goto 10
end do
if (i .EQ. 5) THEN
call function1()
else if (i .EQ. 7) THEN
open (10, file="random-file-name.txt", err=20)
20 print *, "Error message doesn't branch out of the loop's structured block"
else
!ERROR: invalid branch leaving an OpenMP structured block
open (10, file="random-file-name.txt", err=10)
end if
end do
!$omp end simd
10 stop
end program omp_simd
subroutine function1()
integer i, option
option = 1
!$omp simd
do i = 1, 10
print *, "CORRECT SIMD LOOP"
end do
!$omp end simd
end subroutine function1
|
