1! { dg-do run } 2! { dg-options "-O2 -fmodulo-sched" } 3! This testcase related to wrong order within a cycle fix. 4! 5program foo 6 real, dimension (5, 5, 5, 5) :: a 7 8 a (:, :, :, :) = 4 9 a (:, 2, :, 4) = 10 10 a (:, 2, :, 1) = 0 11 12 forall (i = 1:5, i == 3) 13 a(i, i, i, i) = -5 14 end forall 15 16 if (sum (a) .ne. 2541.0) STOP 1 17end 18 19 20