1! PR fortran/88463
2! { dg-do compile { target { ! *-*-* } } }
3
4module pr88463_1
5  integer, parameter :: c = 1
6  real, parameter :: d(4) = (/ 2, 3, 4, 5 /)
7end module pr88463_1
8
9program pr88463
10  use pr88463_1
11  use pr88463_2
12  integer :: i
13  real :: j(4)
14  !$omp parallel default(none) private (i, j)
15    i = a + b(1) + b(4) + c + d(1) + d(4)
16    j(1:4) = b(1:4)
17    j(1:4) = d(1:4)
18  !$omp end parallel
19end program pr88463
20