flang/test/Semantics/OpenACC/acc-symbols01.f90

   1 ! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc
   2
   3 !DEF: /mm MainProgram
   4 program mm
   5   !DEF: /mm/x ObjectEntity REAL(4)
   6   !DEF: /mm/y ObjectEntity REAL(4)
   7   real x, y
   8   !DEF: /mm/a ObjectEntity INTEGER(4)
   9   !DEF: /mm/b ObjectEntity INTEGER(4)
  10   !DEF: /mm/c ObjectEntity INTEGER(4)
  11   !DEF: /mm/i ObjectEntity INTEGER(4)
  12   integer a(10), b(10), c(10), i
  13   !REF: /mm/b
  14   b = 2
  15  !$acc parallel present(c) firstprivate(b) private(a)
  16  !$acc loop
  17   !DEF: /mm/OtherConstruct1/i (AccPrivate, AccPreDetermined) HostAssoc INTEGER(4)
  18   do i=1,10
  19    !DEF: /mm/OtherConstruct1/a (AccPrivate) HostAssoc INTEGER(4)
  20    !REF: /mm/OtherConstruct1/i
  21    !DEF: /mm/OtherConstruct1/b (AccFirstPrivate) HostAssoc INTEGER(4)
  22    a(i) = b(i)
  23   end do
  24  !$acc end parallel
  25  end program
  26