| ! { dg-do compile } | |
| ! { dg-options "-fopenmp -fcray-pointer" } | |
| ! | |
| ! PR fortran/43985 | |
| subroutine pete(A) | |
| real(8) :: A | |
| print *, 'pete got ',A | |
| if (A /= 3.0) STOP 1 | |
| end subroutine pete | |
| subroutine bob() | |
| implicit none | |
| real(8) peted | |
| pointer (ipeted, peted(*)) | |
| integer(4) sz | |
| ipeted = malloc(5*8) | |
| peted(1:5) = [ 1.,2.,3.,4.,5.] | |
| sz = 3 | |
| !$omp parallel default(shared) | |
| call pete(peted(sz)) | |
| !$omp end parallel | |
| return | |
| end subroutine bob | |
| call bob() | |
| end |