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   !REF: /mm/i
  18   do i=1,10
  19    !REF: /mm/a
  20    !REF: /mm/i
  21    !REF: /mm/b
  22    a(i) = b(i)
  23   end do
  24  !$acc end parallel
  25  end program
  26