42 lines · plain
1! RUN: %flang_fc1 -fopenmp %s -o -2 3integer :: x, vv(2), xx(2)4type t15 integer :: v,y,yy(2)6end type t17type(t1)::t,tt(2)8x=19xx=110vv=111t%y=112t%yy=113tt(1)%y=114tt(1)%yy=115tt(2)%v=116tt(2)%y=117tt(2)%yy=118 19!$omp atomic read20 vv(1) = vv(2)21!$omp atomic read22 t%v = t%y23!$omp atomic read24 t%v = t%yy(1)25!$omp atomic read26 tt(1)%v = tt(1)%y27!$omp atomic read28 tt(1)%v = tt(2)%v29!$omp atomic read30 tt(1)%v = tt(1)%yy(1)31!$omp atomic read32 t%yy(2) = t%y33!$omp atomic read34 t%yy(2) = t%yy(1)35!$omp atomic read36 tt(1)%yy(2) = tt(1)%y37!$omp atomic read38 tt(1)%yy(2) = tt(1)%yy(1)39!$omp atomic read40 tt(1)%yy(2) = tt(2)%yy(2)41end42