1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc 2 3!DEF: /mm MainProgram 4program 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 27