Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr36967.f @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-options "-O2 -fpredictive-commoning" } subroutine foo(x,y,n) integer n real*8 y(n,n,n),x(n,n,n) integer k, j, i do k = 2, n-1 do j = 2, n-1 do I = 2, n-1 y(i,j,k) = y(i,j,k) + + (x(i-1,j-1,k) + + x(i,j-1,k-1) + + x(i,j+1,k-1) + + x(i,j+1,k+1) + + x(i+1,j,k+1)) + + (x(i-1,j-1,k-1) + + x(i+1,j-1,k-1) + + x(i-1,j+1,k-1) + + x(i+1,j+1,k-1) + + x(i-1,j+1,k+1) + + x(i+1,j+1,k+1)) enddo enddo enddo return end