| ! 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 |