flang/test/Semantics/OpenMP/shared-pointer.f90

   1 !RUN: %flang_fc1 -fopenmp -emit-fir -o - %s | FileCheck %s
   2 !RUN: bbc -fopenmp -emit-fir -o - %s | FileCheck %s
   3
   4 !Allow POINTER variables in OpenMP SHARED clause. Check that this
   5 !code compiles.
   6
   7 !CHECK-LABEL: func.func @_QPfoo
   8 subroutine foo()
   9   procedure(), pointer :: pf
  10   !$omp parallel shared(pf)
  11   !$omp end parallel
  12 end
  13