1! { dg-additional-options "-Ofast -fno-inline" }
2
3subroutine 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
9end subroutine check
10
11program 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
39end program
40