gcc/testsuite/gfortran.dg/pr91577.f90

   1 ! { dg-do run }
   2 ! { dg-additional-options "--param max-completely-peel-loop-nest-depth=1" }
   3 ! PR 27662. Don't zero the first stride to indicate a temporary. It
   4 ! may be used later.
   5 program pr27662
   6  implicit none
   7  real(kind=kind(1.0d0)), dimension (2, 2):: x, y, z;
   8  integer i, j
   9  x(1,1) = 1.d0
  10  x(2,1) = 0.d0
  11  x(1,2) = 0.d0
  12  x(2,2) = 1.d0
  13  z = matmul (x, transpose (test ()))
  14  do i = 1, size (x, 1)
  15    do j = 1, size (x, 2)
  16      if (x (i, j) .ne. z (i, j)) STOP 1
  17    end do
  18  end do
  19
  20 contains
  21  function test () result (res)
  22    real(kind=kind(1.0d0)), dimension(2,2) :: res
  23    res(1,1) = 1.d0
  24    res(2,1) = 0.d0
  25    res(1,2) = 0.d0
  26    res(2,2) = 1.d0
  27  end function
  28 end