flang/test/Semantics/OpenMP/omp-atomic-assignment-stmt-read.f90

   1 ! RUN: %flang_fc1 -fopenmp %s -o -
   2
   3 integer :: x, vv(2), xx(2)
   4 type t1
   5   integer :: v,y,yy(2)
   6 end type t1
   7 type(t1)::t,tt(2)
   8 x=1
   9 xx=1
  10 vv=1
  11 t%y=1
  12 t%yy=1
  13 tt(1)%y=1
  14 tt(1)%yy=1
  15 tt(2)%v=1
  16 tt(2)%y=1
  17 tt(2)%yy=1
  18
  19 !$omp atomic read
  20   vv(1) = vv(2)
  21 !$omp atomic read
  22   t%v = t%y
  23 !$omp atomic read
  24   t%v = t%yy(1)
  25 !$omp atomic read
  26   tt(1)%v = tt(1)%y
  27 !$omp atomic read
  28   tt(1)%v = tt(2)%v
  29 !$omp atomic read
  30   tt(1)%v = tt(1)%yy(1)
  31 !$omp atomic read
  32   t%yy(2) = t%y
  33 !$omp atomic read
  34   t%yy(2) = t%yy(1)
  35 !$omp atomic read
  36   tt(1)%yy(2) = tt(1)%y
  37 !$omp atomic read
  38   tt(1)%yy(2) = tt(1)%yy(1)
  39 !$omp atomic read
  40   tt(1)%yy(2) = tt(2)%yy(2)
  41 end