27 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc2 3!DEF: /MM MainProgram4program MM5 !DEF: /MM/x ObjectEntity REAL(4)6 !DEF: /MM/y ObjectEntity REAL(4)7 real x, y8 !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), i13 !REF: /MM/b14 b = 215 !$acc parallel present(c) firstprivate(b) private(a)16 !$acc loop17 !REF: /MM/i18 do i=1,1019 !REF: /MM/a20 !REF: /MM/i21 !REF: /MM/b22 a(i) = b(i)23 end do24 !$acc end parallel25 end program26 27