flang/test/Semantics/OpenMP/omp-symbol06.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp
   2
   3 ! 2.15.3 Data-Sharing Attribute Clauses
   4 ! A list item that specifies a given variable may not appear in more than
   5 ! one clause on the same directive, except that a variable may be specified
   6 ! in both firstprivate and lastprivate clauses.
   7
   8   !DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)
   9   a = 1.
  10   !$omp parallel do  firstprivate(a) lastprivate(a)
  11   !DEF: /MainProgram1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
  12   do i=1,10
  13      !DEF: /MainProgram1/OtherConstruct1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4)
  14      a = 2.
  15   end do
  16 end program