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