14 lines · plain
1!RUN: %flang_fc1 -fopenmp -emit-fir -o - %s | FileCheck %s2!RUN: bbc -fopenmp -emit-fir -o - %s | FileCheck %s3 4!Allow POINTER variables in OpenMP SHARED clause. Check that this5!code compiles.6 7!CHECK-LABEL: func.func @_QPfoo8subroutine foo()9 procedure(), pointer :: pf10 !$omp parallel shared(pf)11 !$omp end parallel12end13 14