1! PR fortran/59488
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5  implicit none
6  integer, parameter :: p(2) = (/ 11, 12 /)
7  integer :: r
8
9  !$omp parallel do default(none)
10  do r = 1, 2
11    print *, p(r)
12  end do
13end
14