gcc/testsuite/gfortran.dg/vect/pr69980.f90

   1 ! { dg-additional-options "-Ofast -fno-inline" }
   2
   3 subroutine check (a, b)
   4    real *8, intent(in) :: a(4), b(4)
   5
   6    IF (abs(a(1)-b(1)) > 1) THEN
   7       STOP 1
   8    END IF
   9 end subroutine check
  10
  11 program main
  12   real *8 :: mu(4,26), mumax(4), mumax2(4)
  13
  14   integer :: i, k
  15
  16   do k=1,26
  17      do i=1,4
  18         mu(i, k) = 4*(i-1) + k
  19      end do
  20   end do
  21
  22   mumax = 0;
  23   do k=1,26
  24      do i=1,3
  25         mumax(i) = max(mumax(i), mu(i,k)+mu(i,k))
  26      end do
  27   end do
  28
  29   mumax2 = 0;
  30   do i=1,3
  31      do k=1,26
  32         mumax2(i) = max(mumax2(i), mu(i,k)+mu(i,k))
  33      end do
  34   end do
  35
  36   CALL check (mumax, mumax2)
  37
  38   return
  39 end program