dependency_3.f90

来自「用于进行gcc测试」· F90 代码 · 共 29 行

! { 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  <[e-mail]>
!
  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