gcc/testsuite/gfortran.fortran-torture/execute/scalarize.f90

   1 ! Program to test the scalarizer
   2 program 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)) call abort
  20       if (b(4, n) .ne. (6 - n)) call abort
  21    end do
  22 end program
  23