| ! { dg-do run } | |
| ! { dg-options "-O2 -fmodulo-sched" } | |
| ! This testcase related to wrong order within a cycle fix. | |
| ! | |
| program foo | |
| real, dimension (5, 5, 5, 5) :: a | |
| a (:, :, :, :) = 4 | |
| a (:, 2, :, 4) = 10 | |
| a (:, 2, :, 1) = 0 | |
| forall (i = 1:5, i == 3) | |
| a(i, i, i, i) = -5 | |
| end forall | |
| if (sum (a) .ne. 2541.0) STOP 1 | |
| end | |