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