Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.fortran/pr65597.f90
2023-03-06 14:48:14 +01:00

21 lines
369 B
Fortran

! PR fortran/65597
! { dg-do run }
integer :: i, a(151)
a(:) = 0
!$omp do simd
do i = 1, 151, 31
a(i) = a(i) + 1
end do
!$omp do simd linear (i: 31)
do i = 1, 151, 31
a(i) = a(i) + 1
end do
do i = 1, 151
if (mod (i, 31) .eq. 1) then
if (a(i) .ne. 2) stop 1
else
if (a(i) .ne. 0) stop 2
end if
end do
end