18 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.15.3.2 parallel shared Clause4program omp_parallel_shared5 type derived6 integer :: field(2, 3)7 end type8 integer :: field(2)9 type(derived) :: y10 11 ! Check that derived type fields and variables with the same name12 ! don't cause errors.13 !$omp parallel14 y%field(2, 3) = 115 field(1) = 116 !$omp end parallel17end program omp_parallel_shared18