gcc/testsuite/gfortran.dg/sms-2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O2 -fmodulo-sched" }
   3 ! This testcase related to wrong order within a cycle fix.
   4 !
   5 program 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) call abort ()
  17 end
  18
  19