blob: 53a99ee7c7f95658d95a1b2bf87cfb0fa29de153 [file] [log] [blame]
! PR fortran/88463
! { dg-do compile { target { ! *-*-* } } }
module pr88463_1
integer, parameter :: c = 1
real, parameter :: d(4) = (/ 2, 3, 4, 5 /)
end module pr88463_1
program pr88463
use pr88463_1
use pr88463_2
integer :: i
real :: j(4)
!$omp parallel default(none) private (i, j)
i = a + b(1) + b(4) + c + d(1) + d(4)
j(1:4) = b(1:4)
j(1:4) = d(1:4)
!$omp end parallel
end program pr88463