blob: 052823a9f78a6d882426c9344a282dc8ab80720d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.15.3.3 private Clause
! Pointers with the INTENT(IN) attribute may not appear in a private clause.
subroutine omp_private(p)
integer :: a(10), b(10), c(10)
integer, pointer, intent(in) :: p
a = 10
b = 20
!ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a PRIVATE clause
!$omp parallel private(p)
c = a + b + p
!$omp end parallel
print *, c
end subroutine omp_private
|
