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