!RUN: %flang_fc1 -fopenmp -emit-fir -o - %s | FileCheck %s
!RUN: bbc -fopenmp -emit-fir -o - %s | FileCheck %s

!Allow POINTER variables in OpenMP SHARED clause. Check that this
!code compiles.

!CHECK-LABEL: func.func @_QPfoo
subroutine foo()
  procedure(), pointer :: pf
  !$omp parallel shared(pf)
  !$omp end parallel
end