eabae4cf57
Due to unavailability of Flang testing on Windows, the shell scripts are being ported to Python. The following changes are being made in this patch: removed test_symbols.sh and common.sh, and ported them to Python. Changes to the tests themselves so that they use the python scripts instead of the shell script. Reviewed By: Meinersbur, awarzynski, kiranchandramohan Differential Revision: https://reviews.llvm.org/D107041
27 lines
732 B
Fortran
27 lines
732 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
|
|
!DEF: /mm/Block1/i (AccPrivate, AccPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /mm/Block1/a (AccPrivate) HostAssoc INTEGER(4)
|
|
!REF: /mm/Block1/i
|
|
!DEF: /mm/Block1/b (AccFirstPrivate) HostAssoc INTEGER(4)
|
|
a(i) = b(i)
|
|
end do
|
|
!$acc end parallel
|
|
end program
|
|
|