1! { dg-additional-options "-O2 -floop-parallelize-all -floop-unroll-and-jam -ftree-parallelize-loops=2" }
2
3module ai
4  integer, parameter :: dp = 8
5contains
6  subroutine qu(ja, nq, en, p5)
7    real(kind = dp) :: nq(ja), en(ja), p5(ja)
8    call tl(ja, nq, en, p5)
9  end subroutine qu
10
11  subroutine tl(ja, nq, en, p5)
12    real(kind = dp) :: nq(9), en(9 * ja), p5(3 * ja)
13    do mc = 1, ja
14       do mb = 1, 9
15          do ma = 1, 3
16             p5((mc - 1) * 3 + ma) = p5((mc - 1) * 3 + ma) - 1
17          end do
18       end do
19    end do
20  end subroutine tl
21end module ai
22