Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-additional-options "-O2" } ! { dg-additional-options "-ftree-parallelize-loops=2" } ! Variable bound, vector addition. subroutine foo (nr) integer, intent(in) :: nr integer, parameter :: n = 1000 integer, dimension (0:n-1) :: a, b, c common a, b, c integer :: ii do ii = 0, nr - 1 c(ii) = a(ii) + b(ii) end do end subroutine foo program main integer, parameter :: n = 1000 integer, parameter :: distrib = 10 integer, dimension (0:n-1) :: a, b, c common a, b, c integer :: i, j, k do j = 0, ((n / distrib) -1) do i = 0, distrib - 1 k = i + (distrib * j) a(k) = k b(k) = MODULO ((k * 3), 7) c(k) = k * 2; end do end do call foo (n) do i = 0, n - 1 if (c(i) .ne. (i + MODULO ((i * 3), 7))) stop 1 end do end program