Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dependency_3.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! Tests the fix for PR24519, in which assignments with the same ! range of an assumed shape array, on the lhs and rhs, would be ! treated as causing a dependency. ! ! Contributed by Paul.Thomas <pault@gcc.gnu.org> ! integer, parameter :: n = 100 real :: x(n, n), v x = 1 v = 0.1 call foo (x, v) if (abs(sum (x) - 91.10847) > 1e-3) print *, sum (x) contains subroutine foo (b, d) real :: b(:, :) real :: temp(n), c, d integer :: j, k do k = 1, n temp = b(:,k) do j = 1, n c = b(k,j)*d b(:,j) = b(:,j)-temp*c ! This was the offending assignment. b(k,j) = c end do end do end subroutine foo end