diff options
Diffstat (limited to 'flang/test/Semantics/OpenMP/shared-pointer.f90')
| -rw-r--r-- | flang/test/Semantics/OpenMP/shared-pointer.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/flang/test/Semantics/OpenMP/shared-pointer.f90 b/flang/test/Semantics/OpenMP/shared-pointer.f90 new file mode 100644 index 000000000000..6826086d02a5 --- /dev/null +++ b/flang/test/Semantics/OpenMP/shared-pointer.f90 @@ -0,0 +1,13 @@ +!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 + |