1! { dg-do run }
2!
3! PR fortran/94690
4! PR middle-end/66199
5
6module m
7  integer u(0:1024-1), v(0:1024-1), w(0:1024-1)
8contains
9
10integer(8) function f1 (a, b)
11  implicit none
12  integer, value :: a, b
13  integer(8) :: d
14  !$omp parallel do lastprivate (d) default(none) firstprivate (a, b) shared(u, v, w)
15  do d = a, b-1
16    u(d) = v(d) + w(d)
17  end do
18  f1 = d
19end
20
21integer(8) function f2 (a, b, c)
22  implicit none
23  integer, value :: a, b, c
24  integer(8) :: d, e
25  !$omp parallel do lastprivate (d) default(none) firstprivate (a, b) shared(u, v, w) linear(c:5) lastprivate(e)
26  do d = a, b-1
27      u(d) = v(d) + w(d)
28      c = c + 5
29      e = c
30  end do
31  f2 = d + c + e
32end
33
34integer(8) function f3 (a1, b1, a2, b2)
35  implicit none
36  integer, value :: a1, b1, a2, b2
37  integer(8) d1, d2
38  !$omp parallel do default(none) firstprivate (a1, b1, a2, b2) shared(u, v, w) lastprivate(d1, d2) collapse(2)
39  do d1 = a1, b1-1
40    do d2 = a2, b2-1
41      u(d1 * 32 + d2) = v(d1 * 32 + d2) + w(d1 * 32 + d2)
42    end do
43  end do
44  f3 = d1 + d2
45end
46end module m
47
48program main
49  use m
50  if (f1 (0, 1024) /= 1024) stop 1
51  if (f2 (0, 1024, 17) /= 1024 + 2 * (17 + 5 * 1024)) stop 2
52  if (f3 (0, 32, 0, 32) /= 64) stop 3
53end program main
54