1! { dg-do compile } 2! { dg-options "-fopenmp -fcray-pointer" } 3! 4! PR fortran/43985 5 6subroutine pete(A) 7 real(8) :: A 8 print *, 'pete got ',A 9 if (A /= 3.0) STOP 1 10end subroutine pete 11 12 subroutine bob() 13 implicit none 14 real(8) peted 15 pointer (ipeted, peted(*)) 16 integer(4) sz 17 ipeted = malloc(5*8) 18 peted(1:5) = [ 1.,2.,3.,4.,5.] 19 sz = 3 20!$omp parallel default(shared) 21 call pete(peted(sz)) 22!$omp end parallel 23 return 24 end subroutine bob 25 26call bob() 27end 28