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