! { dg-additional-options "-O2 -floop-parallelize-all -floop-unroll-and-jam -ftree-parallelize-loops=2" } | |
module ai | |
integer, parameter :: dp = 8 | |
contains | |
subroutine qu(ja, nq, en, p5) | |
real(kind = dp) :: nq(ja), en(ja), p5(ja) | |
call tl(ja, nq, en, p5) | |
end subroutine qu | |
subroutine tl(ja, nq, en, p5) | |
real(kind = dp) :: nq(9), en(9 * ja), p5(3 * ja) | |
do mc = 1, ja | |
do mb = 1, 9 | |
do ma = 1, 3 | |
p5((mc - 1) * 3 + ma) = p5((mc - 1) * 3 + ma) - 1 | |
end do | |
end do | |
end do | |
end subroutine tl | |
end module ai |