2 ! { dg-options "-O2 -ftree-loop-linear" }
4 ! Program to test the scalarizer
7 integer, dimension (6, 5) :: a
, b
16 a(1:5, 2) = a(4, :) + 1
18 ! The following expression should cause loop reordering
22 if (a(n
, 3) .ne
. (n
+ 1)) call abort
23 if (b(4, n
) .ne
. (6 - n
)) call abort