1! Program to test the scalarizer 2program testarray 3 implicit none 4 integer, dimension (6, 5) :: a, b 5 integer n 6 7 a = 0 8 do n = 1, 5 9 a(4, n) = n 10 end do 11 12 b(:, 5:1:-1) = a 13 a(1:5, 2) = a(4, :) + 1 14 15 ! The following expression should cause loop reordering 16 a(:, 2:4) = a(:, 1:3) 17 18 do n = 1, 5 19 if (a(n, 3) .ne. (n + 1)) STOP 1 20 if (b(4, n) .ne. (6 - n)) STOP 2 21 end do 22end program 23 24