mirror of
https://github.com/capstone-engine/llvm-capstone.git
synced 2025-01-16 05:01:56 +00:00
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
17 lines
628 B
Fortran
17 lines
628 B
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1 -fopenmp
|
|
|
|
! 2.15.3 Data-Sharing Attribute Clauses
|
|
! A list item that specifies a given variable may not appear in more than
|
|
! one clause on the same directive, except that a variable may be specified
|
|
! in both firstprivate and lastprivate clauses.
|
|
|
|
!DEF: /MainProgram1/a (Implicit) ObjectEntity REAL(4)
|
|
a = 1.
|
|
!$omp parallel do firstprivate(a) lastprivate(a)
|
|
!DEF: /MainProgram1/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /MainProgram1/Block1/a (OmpFirstPrivate, OmpLastPrivate) HostAssoc REAL(4)
|
|
a = 2.
|
|
end do
|
|
end program
|