d602f935da
Follow-up to 418920b3fb, which started
diagnosing the legality of objects in OpenMP clauses (and caused some
test failures).
14 lines
327 B
Fortran
14 lines
327 B
Fortran
!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
|
|
|