repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Print bug url for gcov-dump --help
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr65597.f90
blob
c19f077753d4f6f37cdaad28e41f2b998c96e15e
1
! PR fortran/65597
2
! { dg-do run }
3
4
integer
::
i
,
a
(
151
)
5
a
(:) =
0
6
!$omp do simd
7
do
i
=
1
,
151
,
31
8
a
(
i
) =
a
(
i
) +
1
9
end do
10
!$omp do simd linear (i: 31)
11
do
i
=
1
,
151
,
31
12
a
(
i
) =
a
(
i
) +
1
13
end do
14
do
i
=
1
,
151
15
if
(
mod
(
i
,
31
) .
eq
.
1
)
then
16
if
(
a
(
i
) .
ne
.
2
)
call
abort
17
else
18
if
(
a
(
i
) .
ne
.
0
)
call
abort
19
end if
20
end do
21
end