| ! { dg-do compile } | |
| ! { dg-options "-fopenmp -fcray-pointer" } | |
| subroutine foo (n) | |
| integer :: a, b (38), n | |
| pointer (ip, a (n + 1)) | |
| b = 2 | |
| n = 36 | |
| ip = loc (b) | |
| !$omp parallel default (none) shared (ip) | |
| !$omp parallel default (none) shared (ip) | |
| a = 1 | |
| !$omp end parallel | |
| !$omp end parallel | |
| !$omp parallel default (none) | |
| !$omp parallel default (none) private (ip, b) | |
| b = 3 | |
| ip = loc (b) | |
| a = 1 | |
| !$omp end parallel | |
| !$omp end parallel | |
| end |