27 lines
579 B
Fortran
27 lines
579 B
Fortran
|
! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenacc
|
||
|
|
|
||
|
|
!DEF: /mm MainProgram
|
||
|
|
program mm
|
||
|
|
!DEF: /mm/x ObjectEntity REAL(4)
|
||
|
|
!DEF: /mm/y ObjectEntity REAL(4)
|
||
|
|
real x, y
|
||
|
|
!DEF: /mm/a ObjectEntity INTEGER(4)
|
||
|
|
!DEF: /mm/b ObjectEntity INTEGER(4)
|
||
|
|
!DEF: /mm/c ObjectEntity INTEGER(4)
|
||
|
|
!DEF: /mm/i ObjectEntity INTEGER(4)
|
||
|
|
integer a(10), b(10), c(10), i
|
||
|
|
!REF: /mm/b
|
||
|
|
b = 2
|
||
|
|
!$acc parallel present(c) firstprivate(b) private(a)
|
||
|
|
!$acc loop
|
||
|
|
!REF: /mm/i
|
||
|
|
do i=1,10
|
||
|
|
!REF: /mm/a
|
||
|
|
!REF: /mm/i
|
||
|
|
!REF: /mm/b
|
||
|
|
a(i) = b(i)
|
||
|
|
end do
|
||
|
|
!$acc end parallel
|
||
|
|
end program
|
||
|
|
|