99aa87a5b5
There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
185 lines
4.2 KiB
Fortran
185 lines
4.2 KiB
Fortran
! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
|
|
! Check OpenMP clause validity for the following directives:
|
|
! 2.10 Device constructs
|
|
program main
|
|
|
|
real(8) :: arrayA(256), arrayB(256)
|
|
integer :: N
|
|
|
|
arrayA = 1.414
|
|
arrayB = 3.14
|
|
N = 256
|
|
|
|
!$omp target map(arrayA)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target device(0)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: At most one DEVICE clause can appear on the TARGET directive
|
|
!$omp target device(0) device(1)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: SCHEDULE clause is not allowed on the TARGET directive
|
|
!$omp target schedule(static)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target defaultmap(tofrom:scalar)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: The argument TOFROM:SCALAR must be specified on the DEFAULTMAP clause
|
|
!$omp target defaultmap(tofrom)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: At most one DEFAULTMAP clause can appear on the TARGET directive
|
|
!$omp target defaultmap(tofrom:scalar) defaultmap(tofrom:scalar)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp teams num_teams(3) thread_limit(10) default(shared) private(i) shared(a)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!ERROR: At most one NUM_TEAMS clause can appear on the TEAMS directive
|
|
!$omp teams num_teams(2) num_teams(3)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!ERROR: The parameter of the NUM_TEAMS clause must be a positive integer expression
|
|
!$omp teams num_teams(-1)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!ERROR: At most one THREAD_LIMIT clause can appear on the TEAMS directive
|
|
!$omp teams thread_limit(2) thread_limit(3)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!ERROR: The parameter of the THREAD_LIMIT clause must be a positive integer expression
|
|
!$omp teams thread_limit(-1)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!ERROR: At most one DEFAULT clause can appear on the TEAMS directive
|
|
!$omp teams default(shared) default(private)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!$omp target teams num_teams(2) defaultmap(tofrom:scalar)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target teams
|
|
|
|
!$omp target map(tofrom:a)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: Only the TO, FROM, TOFROM, or ALLOC map types are permitted for MAP clauses on the TARGET directive
|
|
!$omp target map(delete:a)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target data device(0) map(to:a)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target data
|
|
|
|
!ERROR: At least one MAP clause must appear on the TARGET DATA directive
|
|
!$omp target data device(0)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end target data
|
|
|
|
!ERROR: At most one IF clause can appear on the TARGET ENTER DATA directive
|
|
!$omp target enter data map(to:a) if(.true.) if(.false.)
|
|
|
|
!ERROR: Only the TO or ALLOC map types are permitted for MAP clauses on the TARGET ENTER DATA directive
|
|
!$omp target enter data map(from:a)
|
|
|
|
!$omp target exit data map(delete:a)
|
|
|
|
!ERROR: At most one DEVICE clause can appear on the TARGET EXIT DATA directive
|
|
!$omp target exit data map(from:a) device(0) device(1)
|
|
|
|
!ERROR: Only the FROM, RELEASE, or DELETE map types are permitted for MAP clauses on the TARGET EXIT DATA directive
|
|
!$omp target exit data map(to:a)
|
|
|
|
!$omp target
|
|
!$omp distribute
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!ERROR: At most one COLLAPSE clause can appear on the DISTRIBUTE directive
|
|
!$omp distribute collapse(2) collapse(3)
|
|
do i = 1, N
|
|
do j = 1, N
|
|
do k = 1, N
|
|
a = 3.14
|
|
enddo
|
|
enddo
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!$omp distribute dist_schedule(static, 2)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!ERROR: At most one DIST_SCHEDULE clause can appear on the DISTRIBUTE directive
|
|
!$omp distribute dist_schedule(static, 2) dist_schedule(static, 3)
|
|
do i = 1, N
|
|
a = 3.14
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
end program main
|