blob: bcc1a9437c11e8c7b57ef1ec1ee2d2e4f97d9ce2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
!RUN: %python %S/../test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.15.3.2 parallel shared Clause
program omp_parallel_shared
type derived
integer :: field(2, 3)
end type
integer :: field(2)
type(derived) :: y
! Check that derived type fields and variables with the same name
! don't cause errors.
!$omp parallel
y%field(2, 3) = 1
field(1) = 1
!$omp end parallel
end program omp_parallel_shared
|
