2 ! Tests the fix for PR24519, in which assignments with the same
3 ! range of an assumed shape array, on the lhs and rhs, would be
4 ! treated as causing a dependency.
6 ! Contributed by Paul.Thomas <pault@gcc.gnu.org>
8 integer, parameter :: n = 100
13 if (abs(sum (x) - 91.10847) > 1e-3) print *, sum (x)
23 b(:,j) = b(:,j)-temp*c ! This was the offending assignment.