| ! PR fortran/44536 | |
| ! { dg-do compile } | |
| ! { dg-options "-fopenmp" } | |
| subroutine foo (a, i, j) | |
| integer, dimension(:) :: a | |
| integer :: i, j | |
| !$omp parallel default(none) shared(i, j) ! { dg-message "note: enclosing 'parallel'" } | |
| j=a(i) ! { dg-error "not specified in" } | |
| !$omp end parallel | |
| end subroutine |