442ae603c5
When a REAL or COMPLEX literal appears without an explicit kind suffix or a kind-determining exponent letter, and the conversion of that literal from decimal to binary is inexact, emit a warning if that constant is later implicitly widened to a more precise kind, since it will have a different value than was probably intended. Values that convert exactly from decimal to default real, e.g. 1.0 and 0.125, do not elicit this warning. There are many contexts in which Fortran implicitly converts constants. This patch covers name constant values, variable and component initialization, constants in expressions, structure constructor components, and array constructors. For example, "real(8) :: tenth = 0.1" is a common Fortran bug that's hard to find, and is one that often trips up even experienced Fortran programmers. Unlike C and C++, the literal constant 0.1 is *not* double precision by default, and it does not have the same value as 0.1d0 or 0.1_8 do when it is converted from decimal to real(4) and then to real(8).
271 lines
6.5 KiB
Fortran
271 lines
6.5 KiB
Fortran
! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=51
|
|
! Check OpenMP clause validity for the following directives:
|
|
! 2.10 Device constructs
|
|
program main
|
|
use iso_c_binding
|
|
|
|
real(8) :: arrayA(256), arrayB(256)
|
|
integer :: N
|
|
type(c_ptr) :: cptr
|
|
|
|
arrayA = 1.414d0
|
|
arrayB = 3.14d0
|
|
N = 256
|
|
|
|
!$omp target map(arrayA)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target device(0)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
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.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: SCHEDULE clause is not allowed on the TARGET directive
|
|
!$omp target schedule(static)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target defaultmap(tofrom:scalar)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target defaultmap(tofrom)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
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.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target thread_limit(4)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: At most one THREAD_LIMIT clause can appear on the TARGET directive
|
|
!$omp target thread_limit(4) thread_limit(8)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp teams num_teams(3) thread_limit(10) default(shared) private(i) shared(a)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
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.14d0
|
|
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.14d0
|
|
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.14d0
|
|
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.14d0
|
|
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.14d0
|
|
enddo
|
|
!$omp end teams
|
|
|
|
!$omp target teams num_teams(2) defaultmap(tofrom:scalar)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target teams
|
|
|
|
!$omp target map(tofrom:a)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!ERROR: Only the ALLOC, FROM, TO, TOFROM map types are permitted for MAP clauses on the TARGET directive
|
|
!$omp target map(delete:a)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target
|
|
|
|
!$omp target data device(0) map(to:a)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target data
|
|
|
|
!$omp target data device(0) use_device_addr(cptr)
|
|
cptr = c_null_ptr
|
|
!$omp end target data
|
|
|
|
!$omp target data device(0) use_device_addr(cptr)
|
|
cptr = c_null_ptr
|
|
!$omp end target data
|
|
|
|
!ERROR: At least one of MAP, USE_DEVICE_ADDR, USE_DEVICE_PTR clause must appear on the TARGET DATA directive
|
|
!$omp target data device(0)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end target data
|
|
|
|
!ERROR: The device expression of the DEVICE clause must be a positive integer expression
|
|
!$omp target enter data map(alloc:A) device(-2)
|
|
|
|
!ERROR: The device expression of the DEVICE clause must be a positive integer expression
|
|
!$omp target exit data map(delete:A) device(-2)
|
|
|
|
!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 ALLOC, TO, TOFROM 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 DELETE, FROM, RELEASE, TOFROM map types are permitted for MAP clauses on the TARGET EXIT DATA directive
|
|
!$omp target exit data map(to:a)
|
|
|
|
!$omp target update if(.true.) device(1) to(a) from(b) depend(inout:c) nowait
|
|
|
|
!ERROR: At most one IF clause can appear on the TARGET UPDATE directive
|
|
!$omp target update to(a) if(.true.) if(.false.)
|
|
|
|
!ERROR: At most one DEVICE clause can appear on the TARGET UPDATE directive
|
|
!$omp target update device(0) device(1) from(b)
|
|
|
|
!$omp target
|
|
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
|
|
!$omp distribute
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!$omp teams
|
|
!$omp distribute
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end teams
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
|
|
!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.14d0
|
|
enddo
|
|
enddo
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!$omp teams
|
|
!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.14d0
|
|
enddo
|
|
enddo
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end teams
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
|
|
!$omp distribute dist_schedule(static, 2)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!$omp teams
|
|
!$omp distribute dist_schedule(static, 2)
|
|
do i = 1, N
|
|
a = 3.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end teams
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
|
|
!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.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end target
|
|
|
|
!$omp target
|
|
!$omp teams
|
|
!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.14d0
|
|
enddo
|
|
!$omp end distribute
|
|
!$omp end teams
|
|
!$omp end target
|
|
|
|
end program main
|