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