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